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Pom's n' 27 



Pom's presente : 

mm 



pour Apple He, ffe+, He 



Ordico 




Destine aux amateurs de mots croises ou de Scrabble, cette base de donnees, 
due & Roland lost, permet de trouver un mot de longueur donncc dont on ne 
connait que quelques lettres. 

Ordico contient plus de 15000 mots classes en 70 rubriques. 

Recherche s et affichages sont rapides ; un fichier dc 1500 mots est charge en 

moins de 10 secondes et exploite quasi-instantanemenL 

II estbien stir possible d'ajouter des ternies aux divers fiehiers, de cr£er de 

nouvelles rubriques. 

Voici quelques rubriques : 

lire face : 

Acteurs, Anirnaux, Armeslguerres, Auteurs amiricains, Auteurs anglais, Auteurs frangaiSj 

Chimie p Cineastes^ Coureurs cyclistes, Departementsi regions, Dieux/d£esses, Families 
vegetates, Femmes ceiibres, Hommes pnlitiques, lies, Jeuxfspnrts, Miniraux, Montagnes, 
Musiciens jazz, Musiciens, Parties du corps, Peintres Strangers, Peintres frangais, 
Rivierestfleuves, Saints! saintes, Savants/ inventeurs, Sculpteurs, vegetaux, Vetements, Villes 

2£mefaee: 

Athletes, Boxeurs, Cantatrices, Cots, Cosmonautes, Coureurs automobiles, Deserts, Detroits, 
Doctrines philosophiques, Drogues, Escrimeurs, Explorateurs, Gymnastes, Halterophilcs, 
Judokas, Lutteurs, Maladies, Mar&chaux de France, Medicaments, Nageurs, Patineurs t 
Poissons, Presidents americainx, Skieurs, Ski nordique, Unites, Villes olympiques 



Exemples ; 

Un musicien dont le nom compoite 7 lettres, les 2feme et Stmt sont des ( E\ Tapez : 

-E — E — . Vous obtenez instantanement : 

BENNETT DEBOECK DELEEUW GEVAERT LESUEUR PEDREU, ?F;E?Ef<£ URLLESZ 

Dans les acteurs, -A E vous donnerait : 

CAflETTE PAIANCZ RACETTE FANDONE RA YMONE VALbONti 

et H- ; 

CAUCHY CEECH1 SNIOHT VAUGHN WRIGHT 

dans les femmes celfebres donnerait 32 noms. . . 



Disquette double face et documentation : 200,00 F franco, Bon de commande page 74 
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Editorial 



Trait d' union entre la serie II et le Macintosh ? II ressort de nos premiers contacts avec le HGS qu' Apple a 
reussi d construire un systems ouvert, pratique comme le Mac, dote de la philosophie Mac, la couleur en 
plus, le 68000 en mains, Le cote evolution de I' Apple II est d notre sens un atout decisifpour les adeptes 
du pr^decesseur : it halt malaise' de passer du 6502 au 68000 car il s'agit de deux mondes diffirents. 
Avec le 65816, on se sent chez soi et t a en croire nos entretiens tfUphoniques, nombre d'entre-vous sora 
dejd seduits. La presentation de la page 65 vous en dira plus, 

Le numiro 1 de Pom's est sorti en septemhre 8] t d 35 F ; plus de cinq ans apres t now sommes h&as 
obligSs daugmenter le prix pour la seconde fois, le numiro passant d 45 F. Le tarif etait resti stable 
depuis le numero 9, ce qui reste honorable, d'autant plus que la densiti d 'informations s'accroh de 
numiro en numSro : la typographie riduite pour les listings nous permet de voiis proposer des 
programmes toujours plus riches, LA ou nous pouvions vous proposer une routine & uiiliser dans vos 
programmes, un programme complet (sept presentement), d'uiilisaiion aisee, trouve sa place. 

Comme vous le decouvrez* ces pages sont trSs orients vers la communication. Le Minitel prend la 
dimension dun phenomena (on parte de deux millions d'appareils en service a la fin de cette an nee) et 
Pom's devait s'y consacrer car la gratuiti de ce modem nous donne une ouverture vers la 
communication, ouverture quit serait dommage d'ignorer. Un systeme de TelMarme etdes logicieis 
denregistrement et restitution des ecrans sont au programme : I'utitisadon de la prise peri-informarique et 
du modem vous sera bientotfamiliire, 

Autre aspect de la communication, le protocole XMODEM sous CPlM qui decrit I'art et la maniere de 
iransmettre des informations avec iassurance qu'etles sont bien comprises. 

Pour V Apple II, deux autres programmes d'utilisanon immediate : I'un pour approcher le FORTH, I'autre 
pour gerer un carnet d'adresses, dot£ d'une bonne ergonomie. Ce dernier regoit defacon optionnelte le 
composeur tiliphonique des numeros 22123 ce qui forme alors un ensemble interessant. 

Nous n'abandonnons pas t'aspect utilitaire des routines chires d Pom's : un crayon optique, pratique, 
sera certainement connect demain d I'entree des manettes de jeux de votre lie ou lie. Autre utilitaire : 
comment e~]ecter des disquettes 3'5. Pratique egatement, maissans rapport, Vapptication 'Mise En Page', 
(Euvre d'un auteur passe ricemment de I 'Apple II au Macintosh, 

Hervtf Thiriez 



Chit coUabor* a ce numero : Alexandre A wane, Jean-Luc Bazanegue, Bruno F6nart, Boris Fivolewski, Jean-Michel 

GourSvilch, Olivier Herz, Bernard Hoyftfc, Gerard Michel Jean-Luc Nail, Fej Nissuorgsky, 
Christian Piard, Jean-Francois Rabasse, Herv6 Thiriez* Georges Zwingelsiein. 

Directeur de bi publication* redacteur en chef : Hcrve Thiriez, 

R£dacteurs : Alexandre Avrane, Olivier Herz. 

Siege social : editions MEV - 12, rue d'Anjou - 78000 Versailles. Tffl. : (1) 39.51.24.43. 
Publicity ; Editions MEV. 
Diffusion : N.M.P.P. 

Impression : Rosay - 47, avenue de Paris - 94300 Vjncenne*. TftL : (1) 43.28.18.63. 

Pom's est une revue indfipendante nou rsttachrfie a Apple Computer, Inc. ni a Apple Computer France S.A.R.L. Apple, le logo 
Apple, Mac et le logo Macintosh sunt des marques deposed d'Apple Computer, Inc. 



Pom's n° 27 



TeleAlarme Telematique 

Bernard Hoyez, Jean-Luc Nail 



Le developpement 
parallele de la 
micro-informatique et 
de la telematique fait 
souvent voisiner sur une meme 
table micro-ordinateur et Minitel. 
En dehors de leur air dc farnille, 
ils s'ignorent souvent 1'un 
1'autre. II suffit cependant de peu 
de chose pour les maricr ct que 
naissent des applications 
nouvelles. Ccllc que nous vous 
pnfsentons s'adrcssc a un Apple 
tl t mais la transposition est 
realisable simplement surun autre 
micro-ordinateur ayant un port 
aerie. 

Peut-on apprendre a notre ordi- 
natcur a tdldphoner tout seul, 
c'est-a-dire composer un numero 
et repondre intelligiblement ? On 
pcut envisager par exemple la 
connexion du haut-parleur interne 
sur la ligne telephonique (par 
rinterm£diaire d'un transforma- 
teur de telephone), Ce dispositif 
pcrmettrait a 1'Apple de servir de 
repondeur telephonique, en utili- 
sant un programme dc synthase 
vocale par exemple. Malheureu- 
sement, la synthase et la recon- 
naissance vocales sur un Apple //, 
sans peripheVique specialised 
n'offre pas dc bons resultats. 
Aussi, notre realisation n'utilisera 
pas la parole com me moyen 
d'echange, mais le texte. Rangez 
done voire comb me t&ephonique 
dans le placard et sortez votrc 
Minitel qui s'averera plus adapte 
a la situation. 

Le principe 

Plus qu'un simple dispositif 
d'alarme, cette realisation est un 
veritable syst£me de contrfile a 
distance d'une installation. Le cas 
choisi ici, un dispositif anti- 
cambriolage, nous servira 
d'cxemple, mais vous pourrez 
l'adapter 4 la surveillance 



d'appareils mecaniques, 61ectri- 
ques ou scientifiques. 

Les acteurs de hi piece sont les 
suivants : 

* dun cote 1'Apple avec pour 
acolytes des capteurs, des 
relais et un MINITEL ; 

* de 1'autre cote, Monsieur X ou 
un complice, Monsieur Y, 
com me lui posscsseur d'un 
Minitel ; 

* entre les deux, la ligne lelepho- 
nique. 

Le scenario se diroule ainsi ; 

Acte 1 : une maison isole'e, 
ArsSne Lupin crochete la serrure. 
Au moment ou la pone s'ouvre, 
un microcontact se ferme. 
L'AppIe, en chien de garde, 
detecte l'ouverture. AussitSt, il 
compose sccrfttement le numero 
de telephone de Monsieur X. 

Acte 2 : la sonnerie du te^phone 
de Monsieur X retentit. Monsieur 
X decroche le combine et; dans 
Tecouteur, lui parvient un 
sifflement aigu, quelquc chose 
qui lui rappelle le 1700 Hertz: de 
l'annuairc 61ectronique. Monsieur 
X a compris et connects son 
Minitel. II voit apparaitre sur son 
ecran une supplique le pressant a 
se manifested II frappe sur son 
clavier la reponse souhaitcc, 
Alors, un message plus explicatif 
s'offre & ses yeux : le lieu 
d'effraction, la position exaete du 
circuit atteint, 1'etat de certains 
capteurs. Une question lui est 
enfin posee : doit-i E ordonner a 
1'Apple une riposte sur le Heu de 
l'effracrion et lyquelle ? 

Variants a Facte 2 : la sonnerie 
du telephone de Monsieur X 
retentit. Monsieur X est absent. 
Au bout d'une minute, 1'Apple 
impatient raccroche, puis 
compose le numero de Monsieur 
Y, autre familier qui est 
heureusement bien chez lui.. . etc. 



(cette variante peut Stre repetee 
jusqu'a epuisemem de l'agenda). 

Acte 3 : Monsieur X (ou Y) 
deck-lie he la riposte adequate en 
tapant le numero sur son clavier 
(une six&Dfi, leu gaz paralysants, 
ou le pulverisateur d'huile de 
putois, au choix du scenariste). 
Happy end> le voleur est arr&e'. 



Le dispositif 

Les elements necessaires a la rea- 
lisation du systems de telealarme 
sont les suivants : 

* un Apple ][+ ou, de pr6- 
fiSrence, lit (pour le flc e'est 
plus complex?) muni d'une 
carte super-s6rie (SSC entre 
nous) ; 

• un Minitel reversible (pres- 
que tous le sont maintenant) ; 

• un petit circuit de compo- 
sition automatique de nu- 
mero semblable h celui 
propose dans \c numero 22 de 
Pom's ; 

* un certain nombre de micro- 
contacts a aiinanis (autant 
que de portes ou de fenetres a 
prot£ger). Ces micro-contacts 
equipent les disposiiifs de 
securite. Normalement, en 
veille, ces contacts sont 
fermes. Remplacer Fampoule 
par unc ampoule a contacts 
ouverts lorsque le plot aimante 
est rapproche, 

Les micro contacts sont grOtfpis, 
en sirie r sur unc in&rie a un hit 
(boutons-poussoirs). II y a 3 
entries (PBO, FBI, PB2) sur la 
prise de jeux, vous pourrez done 
avoir trots groupes differ ents de 
micro -contacts. 

Vous reliei I 'autre borne de 
ffittterruptew au +5 volts (broche 
1 du connect ear interne), via une 
resistance d' environ J Ksl pour 
attifimr le courant. 
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Rappelons que. les entries logi- 
cians sont accessible^ sur les 
troches 2, 3 et4 du connecteur 
interne ou sur les brockes 7, 1 et 
6 du connecteur arriire du He. 



• de a 3 relais v selon les be- 
soins, monies selon le meme 
principe que pour le compo- 
seur de num6ros. Ces relais 
sont connectes aux sorties- 
t£moins ou annonciateurs, Les 
sorties logiques sont acces- 
siblcs sur les troches 15, 14, 
13 et 12 du connecteur interne 
(helas pas sur le connecteur 
arriere), Comme Tune de ces 
sorties est deja occupee par le 
composeur de nurneros, trois 
sont encore disponibles (AN I , 
AN2 etAN3); 

• de a 4 capteurs a resis- 
tance variable ou potentio- 
metres de 150 KO . Ces 
capteurs seront relies direc- 
tement aux entries des 
manettes de jeux (GCO f GC1> 
GC2 et GC3). Dans le 
programme propose, nous ne 
ferons que lire la valeur prise 
par ce capteur, mais vous 
pouvez bien entendu ermsager 
de d£clencher 1'alarme au-del& 
d'un certain seuil. 

Une application classique peut 
etre la d4tection d'incendie ou de 
gel, a i'aide d'une thermistance. 
Une valeur pr&conise'e pour cette 
thermistance peut etre de 15 KQ a 
la temperature ambiante et un 
rapport R25*f R 50° entre 9 et 
10. Des essais ont montre 1 la 
liniariti de la fonction R - f( 
PDL (x)). Pour PDL{x) - 255, la 
resistance est environ de 115 
Ka 

D'autres applications : adapter 
une photo- resistance pour ddclen- 
cher en fonction de la lumiere 
ambiante, une jauge risistive de 
contrainte en fonction d'un effort 
ou d'une pression, un acciliro- 
mfore en fonction de c/wca\ . , 

• une liaison SSC-MINITEL : 
plusieurs solutions s*offrent a 
vous. Se reporter a la 
presentation generate page 53 
et au plan de cSblage dans 
l'artiele Minitcl/Apple page 55, 



Attention si vous etes bricoleur, 
ne riunissez votre Minitei a votre 
Apple qu'apres avoir dihrancki 
sa prise secteur. It ne xuffit pas 
de I'foeindre, mais carriment de 
t'e~carter du 220 volts > car le 
pauvre na qu'une seule tare, il ne 
posside pas de transformateur 
d'isolement. 

La carle SSC est logce dans le 
slot 2. Pour une autre implan- 
tation, quelques modifications 
doivent etre apportees au 
programme. 

Enfin quelques reglages prelimi- 
naires permettent de s'affranchir 
de Hgnes de programmes super- 
flues. Void la configuration : 





sw2 


on 
off 
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modem 



. configuration 
d« la cart* 
terminal SSC Apple 



Le programme 

Trois sortes de considerations 
sent abord£es dans lecriture du 
logiciel de telealarme : la gestion 
des entrees/sorties sur le connec- 
teur de jeu, la programmation de 
I'ACIA de la carte super-s6rie et 
enfin rutilisation du Minitei 

La prise dejeu, 
prise au serieux 

Pourquoi chercher plus compli- 
queS ? Le connecteur de jeu offre 
une variete de signaux d'entrees/ 
sorties propre a nous satisfaire, 

Vous pourrez 
trouver, page 53 de 

ce numtSro, un 

article sur les 
probl ernes 
generaux de liaison 

Apple/Minitel 



A chaque entric logique est 
associe un commutateur logiciel, 
Leurs adresses-memoire sont 
-16287 a -16285 ou SC061 a 
$C063. C'est le bit de poids fort 
(bit 7) qui informe de l'£tat de la 
commutation alors que le reste de 
I octet est indefuiL 

En Basic, il suffit de lire le 
commutateur avec un PEEK et de 
le comparer avec la valeur 128, Si 
la valeur est egale ou superieure & 
128, le commutateur est £ 1 ou, 
pour notre application, le micro- 
contact est ferm6 (effraction). 

Pour les entrees analogiques, 
l'Applesoft donne un moyen 
rapide devaluation par 1'instruc- 
tion PDL, avec pour argument le 
numero (0 A 3) de la manette. 
Chaque capteur doit 6videmment 
fitre 6talonne. 

Pour les sorties logiques (ici les 
relais), la commutation logicielle 
utilise cette fois une paire 
d'adresses, une met rannoncia- 
teur h tandis que 1'autre le met a 
1. Le simple fait d'acefcder h une 
adresse (une lecture par exemple) 
suffit pour f activer. 

Le composeur automatique de 
numeros t61cphoniques illusirc un 
exemple de leur programmation, 
Les trois paires d'adresses Ubres 
vont de -16294 (SC05A) i 
-16289 ($C05F), 

L'ACIA, 

du travtiil en serie 

La maniere la plus simple 
d'utiltser la SSC est encore de se 
servir du * firm ware 1 de la carte. 
Tapez les commandes PR#2 et 
IN#2 en mode direct, ou prece- 
dees par un CHR$(4) dans un 
programme Basic, et le tour est 
joue. Tout ce que vous tapez sur 
3e clavier de TApple est 
instantanement tranfere sur les 
ecrans de I'Apple et du Minitei, et 
de meme si vous tapez sur le 
clavier du MiniteL 

Le revers de cette facilite est, 
d'une part une certaine lenteur et, 
d'autre part, un manque de 
controls su.r les iacidctices du. 
logiciel Pour ces raisons, nous 
avons pr6f6i6 programmer direc- 



Pom's n 27 



tement les entrees-sorties de 
I'ACIA (I'ACIA, ou "Asynchro- 
nous Communications Interface 
Adapter' est le circuit intogrj 
principal charg<£ de la 'serialisa- 
tion* et des transfers de don- 
n6es). 

Deux registres sont ii connaitre : 
le registre tampon double demis- 
sion/re cepti on et le registre cT6tat, 
qui ont respectivement leur image 
en memoir aux adresses $C0A8 
(TDREG / RDREG) et $C0A9 
(STATUS), si la carte est enfi- 
ch£e dans le slot 2 (pour Factiver, 
faites un saut en SC200). 

Chaque bit du regisEre d'etat, pris 
isol£ment, indique l'etat de cer- 
tains registres ou de certains si- 
gnaux, Dans notre cas, ce sont 
les bits 3 et 4 qui retiennent notre 
attention, Le bit 3 est positionnS h 
1 si le tampon de reception est 
plein. Attention, c'est l'inverse 
pour le bit 4 qui est a 1 si le 
tampon de transmission est vide. 



Pour tester si un caractere est 
entre ou sorti, il suffit de faire 
respectivement un AND $8 ou un 
AND $10 avec l'octet de status et 
d'examiner f indicateur de zero. 

Le caractere itqu ou a emettre est 
place dans la mgmoire 9 qui 
intervient dans les transferts entrc 
la routine machine et le 
programme Basic. 

Le Minitel, 
agent de liaison 

Le Minitel est un Modem bien 
particulier qui lnterprete certaines 
sequences de codes pour son 
propre compte. L'ensernble de 
ces mots reserves constitue le 
vocabulaire de la norme Videotex 
Teletel detaillee dans la notice 
technique du Minitel ou dans 
quelques ou vrages disponibles en 
librairie. Un, deux, trois, quatre 
ou cinq octets servent a construire 



ces mots, Non seulement, le 
Minitel comprend ce langage, 
mais il y repond parfois en emet- 
tant une sequence appropriee. 

Les principales fonctions du lan- 
gage sont les suivantes : 

• modifier le mode de fonction- 
nement du terminal (vitesse 
d'eehange avec le penphe- 
rique, aiguillage des differents 
modules, connexion et discon- 
nexion,, T ) ; 

• modifier les caracteristiques de 
visualisation (passage du jeu 
alphabetique au jeu semi- 
graphique, taille et couleurdes 
caracteres...) ; 

• generer les sequences de codes 
correspondant aux touches de 
fonction (Envoi, Suite, Annu- 
lation...) ; 

• indiquer l'etat du terminal (vi- 
tesse, aigutllages des modules, 
presence d'une porteuse. . .) ; 

• mettre en marc he la procedure 
de correction d'erreurs ; 



Programme TELEALARME' 



.1 


REM 


******************** 


2 


REM 


* * 


3 


mi 
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REM 


* * 
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REM 


* Bernard HOYEZ * 
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REM 


* Jean-Luc NAIL * 
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* * 
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REM 


******************** 
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Ce schema est extrait du numcro 22 de Pom's 
( "Composition de numiros de telephone*' ) 



10 GOSUB 100: REM chargement des routine 

5 e t des varl ables 
20 GOTO 1000 -' REM programme principal 
30 t 

100 REM *** COMMAND ES VXPEQTEX ******** 

******************* 
110 ES$ - CHR$ (2 7) 

ISO EF$ = CHR$ (12): REM EFFACEMENT D'EC 
RAN 

130 RC$ = CHR$ (10) * CI1R$ (13) 
140 DH$ - ES$ + CUR$ (77) t REM DOUBLE HA 
UTEUR 

150 FL$ - ESS + CUR$ (72}: REM FLASH 
160 VT$ = ES$ + CHHS (92) : REM FOND VERT 
170 Pl$ - ES9 + CHR$ (57): REM PROl 
ISO CO$ - Pl$ * CHR$ (104): REM CONNEXIO 
N 

190 DE$ - Pl$ + CBR$ (103): REM DECONNEX 
ION 

200 OPS = Pl$ + CHHS (HI): REM QPPQSITI 

ON 
210 ; 

300 REM *** MESSAGES ****************** 
******************** 

310 ALERTER - EF$ + RC$ + RC$ + VT$ f PH$ 
+ FL$ + " ALERTS " * 

OMRS (31) + T 'KA " + DH$ + "REPONDEZ & 
N TAP A NT " + VT$ f n OK " 
320 MIS = EF$ + RC$ * DH$ + "MERCI D * AVOIR 
REPQNDU" + RC$ + RC$ + "CECI ETAIT UN 
£ SlMUr>ATTOM D 'EFFRACTION" * AC$ + RC$ 
+ "CHEZ MARTIN . . " 
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telechargerles memoires vives 
du Minitel ou identifier au 
contraire ces memoires. 



La eonnaissance de la norme 
Teletel est indispensable pour 

l'ecriture d'un logiciel serveur 
ou t inversement, pour Temu- 
lation d'un Minitel. Elle pre'sente 
mo ins d importance dans notre 
application de tdhSalarme. Les 
sequences de codes essentielles 
ou les plus usitfies ont 6t& 
introduhes dans des variables 
chaincs, rassembl<£es en tSte du 
programme. Pour les transmettre, 
il suffit de faire appel au sous- 
programme d'affichage d'une 
chaine (ligne 800), Retenez 
surtout les sequences de 
connexion (COS), dc dcconnc- 
xion (DE$). ^opposition (OPS) ; 
les autres ne concernent que la 
mise en page des messages. 

Une fois voire dispositif en place, 
verifiez son bon fonctionnement : 



en dehors de I'ukirmc, k dia- 
logue entre 1'Applc et le Minitel 
s'etablit-H lorsque vous valide* 
la carte SSC (PR#,IN#) ? ; 

avant d'importuner vos amis, 
testez "en local" la nfponse ;t 
une alarme simulee. Pour cela, 
'shuntez' la demande de 
connexion en obliterant les 
lignes 1080 et 1090. Sup- 
primez 1'appel au sous- 
programme de composition de 
numero t£l£phonique (ligne 
1050), Pour dSclencher I'aTar- 
me, utilises indifferemment le 
micro-contact, la touche # ou 
le bouton-poussoir. Votre 
Minitel doit alors afficher les 
messages d'alerte auxquels 
vous repondrez sur son 
clavier. L T n *F\ en haul k 
dioite de I'ecran precise que 
vous n'etes pas connccte. 
enfin, assurez vous que 1'appel 
telephonique automatique se 
realise bien et que le Minitel 
prend la ligne, Retablissez 



pour cela toutes les lignes du 
programme et ajoutez eti 
DATA une liste de vos proches 
amis, Normalement, TApple 
affiche le numero qu'il com- 
pose puis un *C' prend alors la 
place du 'F 1 sur l'£cran du 
Minitel. 

Si tous vos essais sent fructueux, 
vous fites en possession d'un 
systime d'alarme bon marc hi et 
adaptatif dont les performances 
rivalisent avec celles d'appareils 
specialis6s. 

Plus encore, ces quelques lignes 
vous auront peut-ltre fait d£cou- 
vrir les imrnenses possibility's 
d'ouverture de votre ordinateur 
sur le monde exte*rieur. 




330 M3$ - "ME SURE ANALOGIQVE " 

340 M4$ * "NUMERO DE RIPOSTE (1,2,3) ? " 

350 ; 

400 REM *** ROUTINES MACHINE ********** 
********************** 

410 SLOT = 49664 
420 ENTRE - 768 
430 AFFICHE - 775 
440 PTT - 792 
450 ; 

460 FOR I - 768 TO 832 
4 70 READ X: POKE I,X 
480 NEXT I 

490 DATA 1 73, 1 69, 192, 41, 8, 1 73 t 1 68, 192, 13 
3, 9, 96 

500 DATA 1 73, 1 6$, 192, 41,16, 240 , 249, 1 65, 

9,141, 168, 192, 95 
510 DATA 165, 7, 201, 1 16,144,17,201, 236, 

1 76, 13, 41, 15, 20$, 2, 169, 10,1 70, 32, 48, 3, 

202,208,250, 96 
530 DATA 169, 159,141,88, 192, 32, 168,252,1 

69, 108, 141, 89, 192,32,168, 252, 96 
540 RETURN 
550 ; 

600 REM ***CQMPQSITIQN NUMERO ********** 
j-***** *************** 

610 HOME 

620 READ X$: IF X$ - "FIN" THEN END 

630 POKE 49241, 0: REM PRISE DE LIGNE 

640 FOR I - 1 TO 700: NEXT I 

650 HOME 

660 PRINT : PRINT "Je compose ie num&ro " 



670 FOR I - 2 TO LBN (X$) 

630 A ■ ASC ( MID$ (X$,I,lj) + 128 

690 POKE 7, A 

700 CALL PTT 

720 PRINT CMS (A): 

720 FOR T = 1 TO 600: NEXT T 

730 NEXT I 

740 RETURN 

800 REM *** AFFICHAGE D'UNE CHAINE **** 
************** ****** 

B10 FOR J = 1 TO LEN (AS) 

820 X - ASC ( MID$ {AS, J, I}) 

930 POKE 9, X 

340 CALL AFFICHE 

350 NEXT J 

860 RETURN 

370 : 

1000 REM *** PROGRAMME PRINCIPAL ******* 
******** ***************** 

1010 IF PEEK ( - 16287) > 128 THEN PQ% - 
J 

1020 IF PEEK ( - 16286) > 12$ THEN Pl% - 
I 

1030 IF PB£K ( - 16285) < 128 THEN P2% - 
J 

1040 IF NOT (P0% OR Pl% OR P2%) THEN 100 



1050 GOSUB 600: REM APPEL*** 
1060 FOR Q = 1 TO 200: NEXT Q 
1070 CALL SLOT 
1080 AS = OPS + COS 
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1090 GOSUB 800: REM AFFICRAGE 

1100 Fl - 0:F2 = 

1110 T - 

1120 7 = 7 + 1 

1130 A$ - ALERTE$ 

1140 GOSUB 600 

1150 FOR I - 1 TO 200 

1160 CALL ENTRE 

1170 IF PEEK (9} = ASC TO "J THEN Fl = 
1 

1180 CALL ENTRE 

1190 IF P££tf (9) = ASC ("K") THEN F2 - 
1 

1200 IF Fl AND F2 THEN 1250 
1210 NEXT I 

1220 IF T > 5 THEN POKE 49240,0 

1230 IF 7 > 10 THEN A$ - DE$ : GOSUB 800 f 

FOR G *= 1 TQ 500: NEXT G: POKE 49321,1 

28: GOTO 1050 
1240 GOTO 1120 

1250 IF PO* THEN S0$ = ■ CIRCUIT 1 ACTION 
NE" + RC$ + EC$ 

1260 IF Pl% THEN 51$ = " CIRCUIT 2 ACTION 
NE" + RC$ + RC$ 

1270 IF F2* THEN S2$ - » CIRCUIT 3 ACTION 
NE" + RC$ + RC$ 

1280 EO$ = STR$ ( PDL (0));El$ = $TR$ ( 
PDL (1)}:E2$ - STR$ ( PDL (2)):E3$ - 
$TR$ ( PDL (3)} 

1290 A$ = Ml$ + CARS (31) + "JA" f DHS + 

VT$ +■ SO$ + Sl$ + S2$ + RC$ + RC$ + M3 
$+"! = "+ E0$ + RC$ + RCS * M3$ + 
" 2 - " + El$ + RC$ + RC$ * M3$ + " 3 
= " +■ E2$ + i?C£ + + M3$ + " 4 * " 

1300 GOSUB 800 

1310 A$ = RC$ f RC$ + M4$ 

1320 GOSUB 800 

1330 CALL ENTRE 

13 SO X% - PEEK (9) - 48 

1350 IF (K% < 1 OR X% > 3) THEN 1330 

1360 PRINT PEEK (49241 + X%) 

1370 A$ » RC$ + RC$ + VT£ + " RIPOSTE M + 

SHtf * H ACTIONNEE * 

1380 GOSUE- 800 
1390 END 

1400 DATA 3541: REM MONSIEUR X 

1405 DATA 35&54321 R£M MONSIEUR T 

1410 DATA FIN 



Source T.ALARME' Assembler Big Mac 

HB i Cc source, >ur J* cUsqupCC* d'#c(7C"np*ff,nffflirnC tf# /# 
rivuc, est siuve^flrdv «n rorrmt '7TXT' pour pwrmwt It • 
id rccuplnC ien pir votrc «»«mfcJ«iiri 

J » * "* 

3 ■ ' 

i - 

i 



J 

S STATUS - SC0A9 jkaqlatr* d'«t*t airte JSC 

J£ -■- - JCOrf* /^t*ffi .*t,-i" rnr/An/rfurc i* Janfl*u 

IS cmrrRE - 

CAJUC7 - Ji" /pirinrfCrv tr«Mf«Tt 04* I C 

jj setanC - SuCSt ,'fforcif tintlr* JtJ» J ] 

i4 CLRANC - SCOiB ssortt* hlntlTB r-'J'-" J fl 

JJ * Jraff rroutinr twvpo tfu mvnlt+ut 

It 

1 ? OTFff yWfl 

M 

jf • 1 tntr** tSw c*rmi7'.*r» 

M 

£1 LP* XTATUT. ,-£1 In lb J C J dU !■ ' I <■<-,<■ B3t 1 I 

22 • ;cwet n * p** C'gtJUt* d^/ui nutem cam 

22 AMD t ■ ,un cir<cC0ra (Tfft pr4*«nt 

14' * /on jutjJC pu !• tr«!«r p*r un tuso 

33 i.i'A OATA .-Lvcturw tin I« 

24 9TA CU ACT 

j? m 

H 

Jfi > JflrtJ* dO CATACtOTe 

JO 

Jj 2T»Tj> £/M STATUS ttt J# bit 4 tfu rcffifCr* tf'vCiC ppI 4 .' 

AMD /fJO .'on pvift trdnsin#ttr# Jj dvunti 

33 JMtt 

J 4 I. PA CAHAC7 

31 STA DATA ;3orllw tfu irir«7t*rv 

J4 iiTJ 
J7 

Jf 

4fl LM CHirrus. 

41 CMP ' H fl B 

42 irv y,t:i-AKt: ,■ nftptnttur */itJ-o chlffrvs 

43 CWP f"Q r * I 

44 ACS SEP APt 

ti AJiD #»JilJ /Hlti-Jp* 

4 HHE CDMP03£ 

41 R"W33i fAff 

J J JUX 

5i atf* JBOCL£ 

JJ SEPAM xrs 
54 

PULSK SM *J J» .■(/•IjI rfff ft nf 

J* fWWWfi T 'eoupur» da Jj Ji0n4 1 r*sj*pAofiJgwi 

5 7 JJH WA7T 

ji ££a /tfelti df JJ «* 

tj jffl sirrAHS .r&tabltssammnt d* Ji Jiflft* tiifipftonJtju 

£0 jffff MUf 

si fir.5 



Recapitulation 'ALARME' 

Ce code est Indus dans le procir&Mfio Baste. 



Accompagn^ d'une cinquantaine de pages dc documcntalioL, Disk Manager pcrmcl dc flatter les commiindc^ du Dos, 
reddfioif I'ofganisation d'unc disquette, grace & un jcu d'instructioas qui cn fait un langagc simplfi d'accfes a la disqucitc, 
il offre igaicmcnt un programme addition a Taidc dc comrflandes tfvolutfes. 4 utilitaires figurtnl aussi sur la disqucttc 

- Uuli-disquc : reconstruction d'une disquctlc d^truite, V6rificaLiyn t 

Plan d'occupation 

- Ultra-copie : pour im backup particulicrcmeftt rapide 1 _ _ _ „ "IV" J i 
-Edicat : Edition du cauloguc, classement des fithicfs, Titrcs... Lf US l\ I L 

- Multi-disquc : pour lc classcmcnL de tous vos programmes (iri insianian*). , ^ 

0<! /Jan Sieerey 



5isk Manager 
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Un Carnet d'Adresses 

Boris Fivolewski 



carnets d'adresses 
traditionnels, ni avoir 
la pretention d'e'galer 
une gestion de fiches 
sophistiquee.ou un logiciel de 
communication, ce programme 
offre des possibilites in- 
icrcssiint^s (du moms nous 
l'esperons) comme la composi- 
tion automatique d'un numero de 
telephone. El sunout, il est ecrit 
essentiellement en Basic ; vous 
pourrez done le modifier facile- 
ment en fonction de vos besoins. 



!->J itf:Tt]JifcT^- M4j^lI:Mdl 

1. llMAfl UfrMi unrm in re 

2. Rcdwth* d'jna flchi 

3. nodi f ical ion d'un* f i cha 

4. Suppression J 'une fieh* 
3. LtctB oiphab6tlqu» 

6, Composition automat i qy* 

7. HOIAIOU COrn*t 
D, Kumar U 



Tcpfli rombr# ou pf «ni _i oM_t p6y_^l^li cywr un« opllon.^ta^fj^iw^. 



Mode d-eniploi 

La gestion du fichier d'adresses 
est volontairement simpHfi^e pour 
permettre une utilisation du 
programme aussi bien en DOS 
3.3 ou en ProDOS, 

Vous devez avoir sur la m6me 
disquette le programme C ARNET 
et les deux fichiers ADRESSES 
et INDEX. S'il n'y a pas de 
fichier INDEX sur la disquette un 
nouveau carnet est cree* au 
ddmarrage, Vous ne devez pas 
par la suite retirer la disquette du 
lecteur, les donnces etant lues au 
fur et a mesure en fonction des 
commandes, ce qui permet 
d'avoir des fichiers tres 
importants (avec un unidisk par 
exemple) qui ne pourraient tenir 
entierement en memoire vive. Sur 
une disquette 5" 1/4 la limite est 
d'environ 400 fiches, mais avec 
d'autres supports vous pouvez 
allerjusqu'a 1200 fiches. 

Attention : le fichier CARNET de 
type Basic est facilement conver- 
tible en ProDOS a l'aide des 
JJtiiitaires Systems II n'en est 
pas de meme pour les fichiers 
ADRESSES et INDEX qui sont I 
acc&s relatifs. Chcisissez done, 
avant d'enregistrer quoi que ce 



soit. le systeme d'exploitation 
que vous utiliserez. Le passage 
de 1 un a l'autre (Stant dcUcat par 
la suite. 

Description 
des commandes 

Introduction en confirm 

Les differentes rubriques sont les 
suivantes : 

* Nom 

* Prenom 

* Adresse 

* VilJe 

* Telephone 

* Renseignement 

Les rubriques tilSphone et rensei- 
gnement peuvent Sire utilisees par 
exemple pour definir une proce- 
dure de connection automatique a 
un serveur en couplant la com- 
mands 6 (voir ci-apres) avec an 
logiciel de communication. 

La rubrique Nom n'accepte que 
les lettres majuscules et les carac- 
tferes apostrophe et tiret ; les 
minuscules sont automatiquement 
converties en .majuscules ; les 
autres caract&res ne sont pas pris 
en compte. Pour les autres rubri- 
ques, il n'y a pas de limitation 
except?" pour les caracteres de 
controle. 



Pour passer a la rubrique suivante 
utilisez J ou & . Pour revenir a la 
rubrique (ou champ) prudent 
utilisez t. 

Dans un m&me champ vous 
pouvez vous deplacer k l'aide des 
touches <- et -> . Pour effacer le 
caractere que vous venez de 
taper, utilisez la touche "Delete". 

Quand le demier champ est 
complete", la fiche est enregistree 
sur le disque. Si vous voulez 
retoumer au menu principal sans 
enregistrer la fiche, pressez la 
touche 'Escape'. Sinon, compl£- 
tez Venregistrement puis pressez 
j ou 'Escape'. 



Recherche d'un nom 

Vous pouvez entrer soit le nom 
en entier, soit le nom abrege" suivi 
par un point, Dans le premier cas 
le programme affichera toutes les 
fiches portant le meme nom, dans 
le deuxieme cas toutes celles 
com merchant par le nom abrege 
quelle que soit la longueur de ces 
noms. 

La recherche se fait dans un 
tableau en memoire vive, elle est 
done relativement rapide, Quand 
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Il-s numcros des fithcs reehcr- 
chees sont trouves, le programme 
lit leurs dif ft rents champs sur le 
disque. La clef utilisee est de 12 
lettres ; au dela t les noms sont 
considers comme identiques. 

Quand vous avez trouve* la fiche, 
vous pouvez I'imprimer, 

Modification 
d'une fiche 

La recherche de la fiche se fait de 
la memc fac.cn que ci-dessus, 
mais vous avez ensuite acces aux 
dilTcrcnts chumps de la fiche atln 
de les modifier. Les possiblites 
sont les m£mcs que pour Tenre- 
gistrement en continu. 

Suppression 
d'unc fiche 

La recherche de la fiche se fait de 
la merne fa^on que ci-dessus. 
Avant de supprimcr la fiche, le 
programme vous demande de 
confirm cr. 

Liste alphahetique 
a partir d'un nom 

La liste commence au nom que 
vous choisissez. Si vous voulez 
lister a partir du debut, tapez 

directement j. Vous pouvez 
interrompre momentanement 1'af- 
fichage a l'aide de la barre 
d'espacement, N'importe quelle 
touehe permet de reprendre la 
liste. Pour interromprc ddfiniti- 
vement, presses 'Escape 1 . 

Composition 
automatique 

Vous avez sans doute trouve que 
le programme qui accompagnait 
le composeur automatique de 
numero de telephone - Pom's 
numero 22 pour le //e, 23 pour le 
//c - dtait un peu sommaire. 
L'option 6 pcrmettra d'utiliser 
pleinement le circuit que vous 
aurcfc construit k cette occasion. 

Si le numero comprend des 
parentheses le composeur consi- 
der les chiffres entrfe comme un 



indicatif et il vous demande s il 
faut le composer ou non, De plus 
vous pouvez ajouter des tempori- 
sations pour attendre une tonalite 
apr&s un indicatif, Le symbole 
correspond a une pause d'une 
seconde, le symbole l + * a une 
pause de dix seconde, Ex em pies : 

• numeVo en region parisienne : 
(16 - 1) 12 34 56 78 {Si 
I'indicatif est compose, la 
pause entre I'indicatif et le 
numero est de 2 secondes) 

• numdro en province : (16 +-) 
12 34 56 7S (Dans ce cas la 
pause est de 1 1 secondes) 

Note : le programme, cora retire- 
ment a ceux des nu?n£ros 22 et 23 
de Pom's, d&ttcte si vous utilisez 
un Apple He ou lie ; vous pouvez 
done I'utitiser sur une machine ou 
sur i 4 autre d condition d'avoir 
r&alisi le circuit correspondent. 

Creation d'un 
nouvcau carnet 

Cette commands permet d'effacer 
totalement un carnet pour en creer 
un nouveau. A utiliscr avee 
prudence. 

Description 
technique 

Les caracteres 
speciaux avec la 
carte SO colonnes 

L^e programme utilise largement 
les possibility's des divers carac- 
teres de controle qu'autorise la 
carte 80 colonnes. Les caracteres 
de controle qui suivent sont uti- 
lisables avec la fonction PRINT 
d£s que Ton a fait PR#3. 

Tabulation : 

• BS$ ^ CHR$(8) : curseur un 
cran a gauche ; 

• FSS = CHRS(28) : curseur un 
cran i droite ; 

• VTS - CHRS(31) : curseur 
une ligne au dessus (meme 
position horizontale) ; 

■ LFS = CHR$(10) : curseur une 
ligne au dessous (idem) . 



Effacement : 

• CHR$(26) : effacement de la 
ligne; 

• CHRS(ll) : effacement jus- 
qu'en bas de r&ran ; 

• CHR$(29) : effacement jus- 
qu'en fin de ligne. 

Mode d'affichage : 

• CHR$(18) : affichage en 80 
colonnes ; 

• CHR$(17) : affichage en 40 
colonnes (mais gestion par la 
carte 80 colonnes) ; 

• CHRS(21) : retour a laffi- 
chage normal en 40 colonnes. 

Les icones souris : 

• 1$ = CHR$(15) : mode in- 
verse * 

• N$ - CHR$(14) : Mode nor^ 
m;il ; 

• ICS = CHR$(27) +- IS : mode 
ieone puis mode inverse ; 

• NI$ - CHR$(24) + NS : fin du 
mode icSne puis mode normal. 

Ces caracteres perxnettent de 
modifier plusieur$ fois le mode 
d'affichage pendant lc mime 
PRINT. Sur les anciens //e, les 
ic6nes n'eiant pas disponibles, 
ICS et NI$ n'oni aucun effet. 

Exemple d'utilisation : I'affichage 
de la variable CRS - ICS + "M" 
+ NI$ donnera l'icone j . 

Note : pour que U programme 
puisse tourner sur un He non mis 
d niveau, un test est effectui au 
dibut ofin de diterminer si 
I'affichage utilise™ ou non les 
possibility graphiques des icanes 
souris. 

Les programmes 
en langage machine 

Ces programmes* au nombre de 
quatre, sont charges par le 
programme en Basic sous forme 
de DATA qui sont 'POKcs' en 
page 3. lis sont tous relogeables, 
peu importe done leur ordre, 
pourvu qu'ils ne se chevauchent 
pas. Les deux premiers sont deji 
parus dans Pom 's, done seuls les 
sources des deux demiers sont 
listed. 

GER est la routine classique qui 
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accompagne un traitcmcnt d'er- 
rear, il est inutile de la presenter 

COMP assure la meme fonction 
que les programmes 'COMPO- 
SEUR' dejl cites. II est par 
ccrntre relogeable et fonctionne 
aussi bien sur le //c ou 1c //c, 

IN est un input generalise qui 
permct d'acccpter tous les 
caracteres. II est utilise pour lire 
le fichier 'ADRESSE* sans avoir 
de probteme avec les virgules ou 
autre s. 



G80 est un programme d'entree 
de caraciferes en 80 colonnes, 11 
est surtout utile pour eviter les 
inconvenients de la fonction GET 
en 80 colonnes sur un Apple //e, 
en particulier Tinterception de la 
touche 'Escape' ou la confusion 
entre la fteche droite et le carac- 
t£re espace (ces inconvenients 
n'existent pas sur un //c). De 
plus, il permet de redefinir le 
curseur. 



Les fichiers 

CARNET 

programme 
ADRESSES et INDEX 

fichiers de donnees crees k 

1 'initialisation 
T.GSO et TJN 

sources de G80 et de IN 

(ProCODE ou Big Mac) 

(3 



Programme 'CAR NET' 

■ 

NB : Les "puces'* symboli&Qnt les 
^spaces pour simplified 1$ $&i$ie. 

REM CARNET D 'ADRESSES (C) BORIS FIVOLEW 
SKI 19$6 

10 ONERR GOTO 20000 
20 GOTO 1O00O 

99 ? 

100 REM Entr&& d'un mot 

101 REM 

1 10 MA - 1; GOTO 130 

120 MA = GOTO 130 

130 t = 1:C$ = MID$ (C$,1,LM):P = PEEK ( 
1403): PRINT C$/: POKE 1403, P 

140 CALL GBQ:K - PEEK ( - 15384) :K = K - 
128 * (K > 127) 

150 IF K = 27 THEN : POP : RETURN 

160 IF K - 10 OR K = 11 OR K = 13 GOTO 26 


170 IF (K = 8 OR X = 127) AND I > 1 THEN 
I - T - 1 : PRINT BS$f i IF K " $ GOTO 1 
40 

1Q0 IF K = 127 THEN P = PEEK (1403) :K$ = 
MXb$ (CS,I + l f m + 1 - I) :C$ = MID 
$ {C$,1, I - 1) + K$: PRINT K$/" "/ : PO 
KE 14Q3 f Pi GOTO 140 
190 IF K = 21 AND I < LM THEN I = 1 + li 

PRINT F3$/: GOTO 140 
200 IF MA AND (96 < K AND K < 123) THEN K 
= K - 32 

210 IF MA AND ( (K < $5 OR K > 90) AND K < 
> 32 AND K < > AS AND K < > 39 AND 
K < > 46} THEN PRINT BL$; ; GOTO 140 
220 IF K < 32 THEN PRINT BL$; : GOTO 140 
230 K$ = CHR$ (K)tC$ = MID$ (C$ + BB$, 1, 

1-1} + K$ 4 MID$ (C$,I + l,hM - I) 
240 1=1+1: IF I > LM THEN K$ - K$ f BL 

$ t BS$:I - I - 1 
250 PRINT K$/: GOTO 140 
260 L - LEN (C$) : IF L - GOTO 290 
270 FOR I - L TO 1 STEP - Is IF MID$ (C 
> " " THEN L = 1:1 = 1 

280 NEXT I 



290 C$ = M1D$ (C$,l f L): RETURN 
399 it 

499 : 

500 REM Recherche du code d'un nom entre 
deux llmites 

501 REM — — 

510 N = OiJ = 0: FOR I = 1 TO NF 

520 J = J + ItYQ = X(J r 0} m = X(J* I) P IF 

¥0=0 GOTO 520 
530 IF (Z0 < Y0 OR ZQ = Y0 AND Zl < = Yl 

) AND (Y0 < XQ OR YQ = XQ AND Yl < Xl) 
THEN N - N + I;W(JVJ = J 
540 NEXT I 
550 RETURN 

599 : 

600 REM Codage d'un nam sur 12 lettzes 

601 REM 

610 L = Q:J m 0: FOR I = 1 TO 12 

620 IF I - 7 THEN X0 - J: J = 
630 L - L + 1 : REM Ignore blanc t tiret et a 
pos trophy 

640 K$ = MID$ fC£,%2j; IF K$ - THEN K 
$ = "a M 

650 IF ASC (K$) - 64 < GOTO €30 
660 J = J * 27 + ASC (KS) - 64 
670 NEXT IiXl - J 
€80 RETURN 

699 i 

700 REM Lecture d'une fiche 

701 REM 

710 CALL IN, NO$ ; CALL IN, PR$ : CALL IN f AD$ 
: CALL IN,VI$: CALL IN, TE$: CALL IN, RE 
$: PRINT D$ 

720 PRINT TMS; 

730 PRINT "NOM: ";NG$; ; POKE 36,41: PRINT 
"FrGnom: ";PR$; PRINT "Adresse: ";AD$ 
; PRINT "Ville; ";VI$,-: POKE 36,46: PR 
INT "T^lSphone; ",-TE$: PRINT "Renselgn 
emenf. " f -RE$ 

740 RETURN 

799 s 

999 : 

1000 REM Insertion gTutw flche 

1001 REM — — «—========--■ 

1010 NQ$ - " r ':PR$ = N "tAD$ - * # ?-V29 - "*:T 
E$ = « " : RE$ ■ " * 
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1020 rem Recherche point d ' insertion 

1021 REM 

1030 IF PF * MF + 1 GOTO 1070 

1O40 FOR I - PF TO MF 

1050 IF X(I,0) - THEN PF = I: GOTO 1080 
1060 NEXT I.-PF = MF + 1 

1070 PRINT ; PRINT BL$t "Attention le fieh 
ler est plein, vou$ ne pouve* plus In 
S&re? de fiche! m f ; GET K$: RETURN 

103D FF = PF 

1090 P - PEEK (37) : VTAB 3; //TAB 26: FflLV 
T "Nombre de fiche <s): "rNF: VTAB P * 
1 

HOC &EM Eiitr^e d'uns fich& 

1101 ftEM — 

11 ID KK - 1 : GOrO 1170 
1120 IF K = 11 GOTO 1150 

11 30 IF KK < > 1 AND KK < > 4 THEN PRI 
NT 

2140 KK - KK + 2 r GOTO 1170 

1150 KK - KK - 1; IF KK = THEN KK = 1 : P 
HINT BL$; 

11SC IF KK < > 1 AND KK < > 4 THEN PRI 

NT VT$; 
1170 HTAS 2: PRINT BS$; 

ll&Q ON KK GOTO 1510, 1540, 1550, 1560, 1570 r 
1580 

1190 PRINT ?M$;VT$ 

1200 REM Enregistrement d'une fiche 

1201 REM — - 

1210 PRINT &$"OPEN INDEX, L20*' 

1220 PRINT D$"OPEN ADRESSES, L256" 

2230 PRINT D$ "WRITE INDEX, R ,r FF 

1240 PRINT XO: PRINT Xl 

1250 IF FF < > PF GOTO 1270 

1260 PRINT D$"WRITE INDEX, RQ": PRINT NF f 

1 iNF = NF tI 1 
1270 PRINT D$ "WRITE ADRESSES, R"FF 
120 PRINT NC$i PRINT PR$ ; PRINT AD$: PRI 

NT VI$: PRINT TE$ : PRINT RE$ 
1230 PRINT D$"CLOSE" 
1300 X{FT,0) = X0tX(FF,l) ■ 
1310 IF FF - PF GOTO 1000 

en contlnu 
1320 RETURN 

1500 REM Rubriques 

1501 REM 

1510 PRINT "NOM: :LM " 35;C$ = N0$: GOS 

U3 110;NO$ - C$ 
1520 GOSVB 600: IF XO - THEN RETURN 
1530 GOTO 1120 

1540 POKE 36,41: PRINT "Pr6nom: "/ .*LM = .? 
0:C$ - PR$: GOSUB 120;FR$ - C$: GOTO 
1120 

1550 PRINT "Adresse: "/ :LM = 7Q:C$ = AD$ : 

GOSUB 120:AD$ - C$s GOTO 1120 
1560 PRINT "Ville: ;Ui = 38 : C$ = VI$ t G 

OSUB 120:VI$ = C$: GOTO 1120 
1570 POKE 36,46: PRINT "T61£phvne: »/ ;LM 

- 22:C$ - TE$: GOSUB 120:T£$ - C$: CO 

TO 1120 

15B0 LM = 250 - LEN (NO$) - LEN (PR$) - 
LEN (AD$) - LEN {VI$) - LEN (TE$) i 



XI 

REM Insertion 



1590 

1999 
2000 



LM =■ 64 * (LM > 64) ■+ LM * (W < 65) I 
IF LEN {RE$) > LM THEN PRINT CHRS 
(29) f 

PRINT "Renseignementi ";:C$ - RE$i G 
OSUB 120:RE$ - C$; GOTO 1120 



REM Recherche et impression d'une fi 
che 

2010 GOSUB 2500 

2020 IF K - 27 OR H = THEN RETURN 
2030 PRINT : PRINT "Impression de cette f 

iche (0/N) ? "/ r CALL G60: PRINT 
2040 KS = CHRS ( PEEK ( - 16384)): IF K$ 

< > "O" AND K$ < > "o" THEN RETURN 

2050 PRINT D$;"PR#1":I «- 10 
2060 PRINT SPC( I)/"M. ";N0$ 
2070 PRINT SPC( I) /ADS; PRINT SPC { I)/V 
I? 

2080 PRINT D$"PR#3" 

2090 RETURN 

2210 PRINT VT$;VT$ 

2499 ■ 

2500 REM Recherche Cess fiches 

2501 REM 

2510 N * 0i PRINT **N0M: :LM - 35zMA = 1: 

C$ - N0$: GOSUB 110: PRINT 
2520 GOSUB 600: IF XO = THEN PRINT "Nq 

m incorrect!": GOTO 2510 
2530 ZO - XOsSl = XI: IF RIGHTS {C$,1) < 
> THEN XI - XI i- 1;C$ - "porta/it 

le nom: " * C$: GOTO 2560 
2540 C$ = C$ + GOSUB 600: REM AstVce: 

Code ascii suivant ceJui Z 

2550 C$ = "convn&n^nt pair; " f LEFT? (C$, 

LEN (C$) ~ 1) 
2560 GOSUB 500: IF N = GOTO 2570 
2570 VTAB 3: PRINT "II y a " ; N/ " fiche(s) 

";C$: HOME 
2580 PRINT D$"OPEN ADRESSES f L25 6" 
2590 FOR 1=1 TO N 
2 600 PRINT D$ "READ ADRESSES, R ,f N( I) 
2610 GCSUE 700 

2620 PRINT : PRINT "Est-ce la fiche que v 

ous recherchez (0/N) ? 
2630 CALL GBQ:K - PEEK { - 16334) :K$ - 

CHR$ (K) : IF K = 27 GOTO 2680 
2640 IF K$ = "O" OR K$ = "o" GOTO 26S0 
2650 IF K$ < > 'W AND K$ < > "n* GOTO 

2630 

2660 PRINT VT$iVT$- NEXT I 

2670 print : print "La fiche que vous rec 
herchez n*e$t pas dans ce fichier.": 
PRINT " Presses une touche pour reven 
ir au jbmu: V? CALL C80:N = 

2680 PRINT : PRINT D$"CLO£E" 

2690 RETURN 

2999 ? 

3000 REM Modification d'une fiche 

3001 REM —™™ 
3010 GOSUB 2500 

3020 IF K - 27 OR N - Q THEN RETURN 



14 



Pom's n° 27 



3030 FF - N(I) 

3040 HOME ; GOSUB 720 

3050 VTAB 5: GOTO 1100 

3999 : 

4000 REM Suppression d'une fiche 

4001 REM T y i ■■»>■ 
4010 GOSUB 2500 

4020 IF K * 27 QR N = THEN F£TURN 
4030 PRINT ; PRINT "D'accord pour supprltn 

er eette fiche (0/n) ? V? CALL G80: 

PRINT 

4040 K$ - CfiRS ( PEEK ( - 16394)): IF K$ 
< > "0" AND K$ < > *o" THEN RETURN 

4050 PRINT D$"QPEN INDEX, L20" 

4060 PRINT D$"WRITE INDEX, R"N ( I ) 

4010 PRINT "0": PRINT "0" 

4080 PRINT D$"WRITE INDEX, RO" 

4090 PRINT NF - 1 

4100 PRINT D$ "CLOSE" 

4110 Xmtl),0) = 0:NF - NF - ItPF - N(I) 

4120 RETURN 

4999 i 

5Q0Q REM Llste a partlr d'un nom 

5001 REM «■==========—»==== 

5100 REM Initialisation 

5101 REM «— • 

52 JO P/?INT "Worn d'origine: V;LM = 

= nq$ ■ GCSC/B 1J0: PRINT : GOSVB 600 

5120 K = 0:FF - 0? F0£ I = 2 TO NF 

5130 K = K t 1:Y0 - XffitDUYl - *<%U 

5140 WfKJ - 0; IF Y0 = GOTO 5130 
5150 IF Y0 > X0 OR Y0 - X0 AND Yl > = XI 
THEN FF - FF + 1 :N(K) - 1 

51 £0 ivsxy if rr ff = fl then print ; jpaiw 
7 1 "11 n 'y 3 aucufle fiche apres ce nom 
GOTO 5300 

5170 C$ - "de " + C^; IF X0 = then C$ = 
"du debut" 

5180 VTAB 3: PRINT "List* da rf /FF; " fiche 

(s) A partlr HOME 
5190 PRINT D$"OPEN ADRESSES, L256" 

5200 REM Lecture 

5201 REM 

5210 FOJ? I - fT TO 1 SFEP - i 

5220 #0 - 987654321 :K = 0: FOR J - 1 TO I 

5230 K = K -h It IF N(K) - GOTO 5230 

5240 Y0 = X(K,Q):Y1 - Xfff,JJ 

5250 If < ATO Of? - XO AND Yl < XI TH 

EN ;X0 = rO:Xl = Yl:N = K 
5260 NEXT J: PRINT D$"READ ADRESSES, R"N: 

GOSUB 700 

5210 POKE - 16364,0! IF PEEK ( - 16384) 

- 32 THEN CALt G80 
5280 IF PEEK ( - 16384) = 27 GOTO 5500 
5290 N(N) = 0: NEXT I: PRINT : PRINT "Dern 

i£re flcfte. u f 
5300 PRINT " Pressez une touche pour reve 

nir au menu; 'V? CALL G&O 

5500 REM Fin de la liste 

5501 REM — ■ — 

5510 PRINT i PRINT D$ "CLOSE" 
5520 RETURN 



5999 r 

£000 REM Composition, automatic^** 

6001 REM mmmmmm —========——- 

60X0 GOSUB 2500 

6020 IF K - 27 OR N = THEN RETURN 
6030 PRINT VT$; CHR$ (29) 
$040 L - LEN (T£$) 

60SO IF L = THEN PRINT "P&S de numSro 

de t&l&phone . : GOTO 6500 
6060 PRINT "Je compose le num&ro: REM 

Prlsa de ligne 
£070 IF IC THEN POKE 49322,8 
6080 IF NOT IC THEN POKE 49241,0 
6090 FOR J - 2 TO 1000: NEXT 
6100 REM Composition 
6110 FOR 1=1 TO L 

6120 K$ - MID$ (TE$,I,D:K - ASC (R$) ? P 
RINT K$s 

6130 IF 47 < K AND K < $8 THEN POKE 6 f K 
- 48 + 10 * (K - 48): CALL CCMP:K$ - 
REM Ajoute un delai d'l seconde 
&pr£s cheque ohiffre 

6140 IF K$ ^ "-" THEN FOR J - 1 TO 1000 ! 
WEXr ? REM Environ 1 seconds 

6150 IF K$ = M +" THEN FOR J - 2 TO 10000 
; NEXT t REM Environ 10 seeenctes 

6160 IF K$ < > "(" GOTO 6290 

6170 P = PEEK (1403) 

6180 PRINT f PRINT "Indlcatif (O/N) ? 
6190 CALL $8Q:K - PEEK ( ' 16384) :K$ - 

era* f« 

REW Indicatlf ? 
££2 IF K * 27 GOTO 6550 
6220 IF K$ - "0" OR K$ - "o" GOTO 

JF W < > "N" AND K$ < > "n" GOTO 

£240 FOJ^ J - I + 2 TO £ 

£250 X*? = MID$ (TE$, J, 1) tK - ASC (K$) 
6260 IF K$ - "J " TffiN J - £.:! = I - 2 
£270 r - 2 + 1? NEXT J 

6280 POKE 14Q3;P; PftXNT VT$; CHR$ (11)/ 

6290 NEXT 1 

640 REM D4crochage 

6410 PRINT : PJ^IJ/r CTIiff f/J 

£420 PRINT "Decroch&z le combine av^jit 

seconds"; 
6430 FOR I - 10 TO 1 STEP - I 
64J0 flTAfl 25: PRINT $PC( I < 10) /I/ 
6450 FOR J = 1 TO 1000: NEXT 
6460 NEXT I 
6470 PRINT VT9 

6480 IF IC THEN POKE 49322 t 
6490 IF NOT IC THEN POKE 49240,0 
6500 REM Fin 

6510 PRINT "Pressez un& touche pour reven 

ir au menu principal."/ : CALL G80 
6520 RETURN 
£550 REM Escape 
6560 IF IC THEN POKE 49322,0 
6570 IF NOT IC THEN POKE 4$240,0 
6590 RETURN 
699$ t 

7000 REM CrSer tin nauveau camel 
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7010 HOME t PRINT " Attention en errant 
un nouveau carnet voU3 efface? 1& pr£ 
cedent s'il exists, "? PRINT " Voulez 
-vqus vraiment crSer un noweau came 
t (0/N) ? "/ 

CAUL G80:K$ - OTJ?$ ( PEEK ( - 16384 
)) 

IF K$ < > »O n AND K$ < > "o" THEN 
RETURN 
PRINT 

REM Destruction eVenttielie 
IF LI = 1130 GOTO 7140 
IF LI * 7140 GOTO 7150 
PRINT D$ "DELETE INDEX" 
PRINT D$ "DELETE ADRESSES" 
PRINT D$ "OPEN INDEX, L2Q" 
PRINT D$ "WRITE INDEX? RO" 
PRINT "Q»: REM ZSro pas ff o" 
PRINT D$ "OPEN ADRESSES,L256" 
PRINT D$ "CLOSE" 
RUN 



7Q20 

7030 

7Q40 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
1110 
7180 
7190 
/ZOO 
7999 i 
9999 i 
10000 
10001 
10O02 
10O1O 

10020 
10030 
10035 

10040 

10045 

10050 

10055 

10060 
10065 

10070 

10075 

10080 

10085 

10090 
10095 
10099 
10100 

10101 
10110 

10120 

10130 



REM ************************** 

REM ** DEBUT DU PROGRAMME ** 

************************** 

TEXT : HOME :D$ - CHR$ (4) : PRINT 
D$; "PRf3" : REM 80 colonnea 

PRINT : PRINT "POM'S pr£sente: " 

POKE 32,20: PRINT : PRINT 

PRINT "-*****■•***•• ■ • • *» 

****** * At***" 

PRINT ##***#* «#*«#*.***<• 

* * » 



PRINT ***** **#******#*****- 

PRINT H * *.*,.,*..*..*...*-.**.. 

PRINT rf * ***#••**•**###••**:» **••«*•■ 

FGK£ J-?, 9; PRINT : PRINT 

PR I NT "■•*-»■■*#■■■'***» * » ^^f^' * * 

. * ****** . ****** . * if * * * . , * * * * * . * - V J J ■■ 
PRINT "i*****, *************** m * m * m * 



PRINT ****** 

PRINT "*m*mm 



************* .****» 
** + amw *** m , u a . * * * " 

<. P .y.^x p * . . ' . 



* . . * 



, rt m 



PRINT W H*W* it ## # * 

. B ****** ■****■« ■****,■ .***■***„**#*" 

POKE 32, Q: PRINT : PRINT 

PRINT "V&uillez patienter, merei*" 

REM Variables principales £ caracte 
res sjseciaujf 

I - J;X0 - XI :Y0 - rlrZO - Zl :MF - 5 
00; £>Itf X(MF, 1),N(MF) 

BS$ - CffRS f8J:FS$ - CTR# f28J :VT$ 

- CHR$ (31):BL$ - CHR$ (7) 
t$ = CHR$ (15):N$ = CHR$ (14)iIC$ 



10140 
10150 
10160 
10170 



10180 
10190 

10199 
10200 

10201 

10220 

10230 
10240 



= CHR$ (27) + I$:NI$ m gf : * CHRS ( 
24) 

IC = PEEK (64448) :IC - (IC - 0) *> f 

IC = &£4j 
BBS = » 

W = " 

":rs^ = TBS + TB$ 



10250 
10260 

10270 

10280 
10285 

10290 

10295 

10299 
10300 
10301 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 

10399 
1Q4QQ 
10401 
10410 



TM$ - f, SSSSSS3SSSS$SS$$SSSSSSSS$SSS£ 
SS$$$5$$$$$"iTM$ - IC$ + TM$ + + 

NI$ -h CHR$ (26} 

IF IC GOTO 10200 

TM$ = " — ' — 

» ; TM$ - TM$ + TM$ 

REM Sovs programmes en bin&ire (re 
I oye-ahln) 

REM ==———« ——— HHNIPP"— 

GER = 768: REM Gestion d'&rreuts 

DATA 104, 1$&, 104, 166, 223,154, 72,152 
, 72, 96 

IN = GER + 10: REM Input g6n6ralls§ 

DATA 32, 190,222, 32,227,223, 32, 44,21 
3, 1 62, 255, 232, 2 39, 0, 2, 20B, 250 f 138, 1 6 
0, 0,145, 131 f 32, 82,228, 72, 152,160,2, 1 
45,131,136, 138, 145 f 131, 1 62, 0,200,104 
,32, 226, 229, 96 

G80 - IN + 43: REM GET clignotant &fl 
80 colonnes 

DATA 1 65, 37,32, 193, 251, 1 65, 36, 205, 1 
23,4,203, 3, 173 r 123,5, 74, 168 f 141,84,1 
92, 1 76, 3, 141, 85, 1 92, 1 77, 40, 1 70, 1 38, 2 
09,40,208,2,169 

DATA 223,145, 40,169,0,24, 72,44,0, 19 
2, 4$, 11, 233, 1,206,247, 104,233, 1,208, 
241,240,227, 104,138,145, 40,141, 16, 19 
2, 141,84, 192, 96 

COMP - G80 + 68 t REM Composition a 
utomatlque 

DATA 1 66, 6, 1 60, 0, 1 69, 1 60, 1 4Q, Q8, 192 
,32, 168,252,160,8,169, 103,140, 89,192 
, 32, 1 68, 252, 202, 208, 233, B6 
FIN - COMP + 25: FOR I = GER TO FIN: 

READ J; POKE I, J: NEXT I 

IF rc THEN POKE COMP + 7,170: POKE 

COMP + 17,170 

REM Menu 
REM mmmM 

DATA Insertion d'une flche 
DATA Recherche d'une fiche 
data Modification d'une fiehe 
DATA Suppression d'una £iche 
DATA Liste alphab&tique 
DATA Composition automatlqU^ 
DATA Nouveau earnest 
DATA Quittar le programme 
NC * 7: DIM CHOIX$ (NC) I FOR 1 = TO 
NC: READ CHCIX${I): NEXT 1 

REM Lecture du fishier index 

REM — ' 

PRINT D$ "UNLOCK INDEX" 
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10420 PPT NT D$"VNLOCK ADRE$S£S» 

10430 PRINT D$"QPEN IND£X,L2Q"; PRINT D$" 

READ INDEX, RO": INPUT NT 
10440 Zf NF - GOTO 10490 
10450 K « 0: FOR I - 1 TO NF 
1Q460 K = K + 1: PRINT* D$"RFAD INDEX, R "K : 

INPUT X(K,0),X(K,1) 
10470 IF X(K f O) - AND X(K,1) = GOTO 1 

0460 
10 480 NEXT I 

10490 PRINT D§ M CLO$E":PF - 2 
10499 ; 

1Q500 REM Affichage du menu 

10501 REM 

10510 TEXT ; MOME ? HP - 26:VP = 11 - NC:0 

LD = PT -f 1 
10520 PRINT TB$t : PRINT I$;BB$; VTAB 2: H 

TAB 20: PRINT "CARNET D' ASSESSES (C 

) BORIS FIVQLEMSKI 1986" ;N$ 
10530 VTAB VP + 2; FOR I - T C NC - 1 : H 

TAB HP - 2: PRINT 7 * ";CHOIX${ 

I) ; FRINT : NEXT 1 
10540 fiTAB HP - 2 1 PRINT "0. ";CHOIX$ (NC) 
10550 VTAB 23 1 PRINT TM$; 
10560 IF IC GOTO 10590 

10570 PRINT "T&pez un nombre ou utilises 
l@s fl6che$ pour choislr une option. 
Puis RETURN. *; 
10580 GOTO 10600 

10590 PRINT "Tapez un nombr& ou pres^ez 

";IC$;"J";NI$,>" ov ICS;"K";NX$; " p 
our &$l&ctionner une option. Puis pre 
sser u /IC$f "WfNlS, 1 
10600 RUM *** Entree du cboix *** 
10610 IF FT - OLD THEN GOTO 10630 
10620 VTAB OLD * 2 + VP : HTAB HP: PRINT 

SPC( 26) : PRINT : HTAB HP: PRINT " " 
;CHOXX$(OLD) ; " ": HTAB HP: VTAB FT * 
2 VP; PRINT LEFTS (TB$, LEN (CHO 
IXS(PT)) + 2) : HTAB HP; PRINT 1$/" " 
;CHQIX$(PT) r * ";NI$ 
10630 WAIT - 16384,128; POKE - 16368,0: 

K = PEEK ( - 16384} 
10640 OW = PT 

1Q65Q IF K - 10 THEN PT - PT + 1 - (NC + 
2J * (jpjr - WCJ 

10660 If K = 11 THEN FT = PT - 1 + (NC -fi- 
ll * (PT = 0} 

10670 IF 47 < K AND K < 49 + NC THEN PT - 
- 49: IF PT < THEN PT - NC 

10690 IF K < > 13 THEN GOTO 10600 

10100 REM Execution de la commande 

10701 REM 

10710 IF RT = NC GOTO 11000 

10720 IF NF - AND PT < > THEN VTAB 
22i PRINT 1$;" Contmande impG8$lbl&: 
fichier vide. "/N$;:QLD - PT:PT - 0: 
GET K$ : PRINT CHR$ (26) ? GOTO 



20730 HOME i PRINT I$;BB$: VTAB 1: HTAB 2 
i PRINT CHOIX$(PT) ? i POKE 36,51; FRX 
NT "£5C : fletour au rcanu gen&r&l";N$ 
: POKE 34,3- PRINT : PRINT 



10740 ON PT + 1 GCSUB 1000,2000* 3000, 4000 

, 50QQ* 6000, 7000 
10750 GOTO 10500 

110Q0 HOME S PRINT CHR$ (21); END 

19999 i 

20000 REM Traitement de& erreurs 
2Q0Q1 REM -—==== — — — — 

20100 ER = PEEK (222) :LI - PEEK (218) + 
PEEK (219) * 256 

202QO i 

20210 CALL GER 

20220 IF LI = 20230 GOTO 20240 
20230 PRINT D$/ "CLOSE",. 
20240 PRINT CHR$ (7) 

20250 IF ER - 255 THEN PRINT "BREAK EN L 

IGNE ";Ll: END 
2Q3QQ REM Erreurs initial&s 

20301 REM 

20310 IF (ER = 6 OR ER = 7) AND LI = 1041 

GOTO 10420 
20320 IF (ER = 6 OR ER = 7) AND LI = 1042 

GOTO 7100 
20330 IF ER = 5 AND LI = 10430 GOTO 7100 
20340 IF (ER - $ OR ER - 7) AND (LI > 700 

AND LI < 8Q0Q) GOTO 7100 
20350 IF ER - 4 AND LI - 10410 GOTO 10430 
20390 XF LI > 10000 AND LI < 10500 THEN 

PRINT "Erreur pendant 1 'Initialised 

Oil, R&charger le programme . * 4 ; END 

20400 REM Autres erreurs 

20401 R£M 

2041Q IF ER » 6 OR ER - 7 OR ER * 8 THEN 
PRINT "Cornet d * actresses non trouve 
. *-* PRINT "Mettes 1a bonne disquette 
OU cr£ez un nouveau Garnet (option 
7) " 

20420 IF ER = 9 THEN PRINT "Disque plein 
, PRINT "Cr6ez un nouveau Garnet $ 
BT un& autre diskette" t GOTO 20500 

20430 IF ER = 17 THEN PRINT "Repertoire 
plein."; PRINT "Utilisez une autre d 
ioquett*"! GOTO 20500 

20440 IF ER - 10 THEN PRINT "Flchiers ve 
rroulll&s. " 

20450 IF ER = 4 THEN PRINT "DlsquettB pr 
ot&q£e. " 

20460 IF ER - 4 OR ER = 10 THEN PRINT » 

Vcus ne pouvez pas modifier lea flch 

e3": GOTO 20500 
2Q470 IF ER = 5 THEN PRINT H FichierS d£ 

terior£s ou disquettez tichatigSes" : G 

OTO 2050O 
20480 PRINT M *rreur. 

20500 PRINT "Presses une touch* pour reve 

nir au menu";: CALL GQO 
20600 GOTO 10500 



Recapitulation 

Les quatre fichiers binaires utilises se trouvent 
sous forme de DAT As dans le programme Basic, 
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WS ; Sources en format TEXT' sur Ja dlsquette Pom's pojr ro~cup6rition sur votre txsembleur. 



Source 7AT 


3 7 

31 


DLi 




99 














32 


TXA 




23 




LDA 




Assembleur Procode 


7 7 
J J 




f VAKFfvI J , I 




Cl a 




ou BigMac 




34 
35 


LDX 
INY 




25 

^ o 














36 


FLA 




27 




BCS 


page 


i 






37 


JSR 


MOVSTR 


■* o 




t TJS 
Jin 






ORG 


$0300 


38 


RTS 




j ■ . * 


page 


Hy\JlJ 
















in 








4 VARP1JT 

5 IN 


EQU 
EQU 


$83 
$0200 


Source %G$0 § 


3 7 
j * 




LtUt\ 
J/1A 




6 INLIM 

7 CRKCLS 


ECU 
EQU 


$D52C 
$DEB3 


Assembleur Procode ou 


14 


J— L J—* i 7 J— 1 1 f^i 


j! A>i 
/■"MP 




8 CHKQPN 


EQU 


$DEBB 








mJ J 




B MIT 


/*! . • _ 1 - 7— 


9 PTRG£T 


EQU 


$OFE3 








36 

-W* V 




1 1 j y 1 


* " " 
w 


10 GETSPA 


EQU 


$E452 


1 * 




.■IP I II 

GL'l 




U-U J- £>t£ Li J 






11 MOVSTR 


EQU 


$E5E2 








-J J 








12 






3 


ORG 


$380 


> j 






wu 


13 *** De\but du 


code *** 


4 






40 




, ill.. 




14 






5 CH 




$24 


41 


"B ii LV 


1 j 1 . 1 




15 


JSR 


CHKOFN 


6 CV 




$25 


42 


rra .., [. j 


X3J. J 


i .. j : - 


16 


JSR 


PTRQET 


7 BASL 




$29 


43 








17 


JSR 


CHKCLS 


Q OLDCH 




$47 B 


44 








IS 


JSR 


INLIN 


5 OURCH 




$57 B 


45 






Wo. J. t. J 


19 


LDX 


jt$FF 


10 






4/7 




i Jin 




20 BCL 


INX 




11 KBD 




$CD00 


'i / 






IT J 


21 


LDA 


IN, X 


12 KBDSTRB 




$C010 






r : j v 1 . 


It i 1 i f .1 1 


22 


BNE 


BCL 


13 TXT PAGE 2 




$C054 


4Q 




pro 




23 


TXA 




14 TXTPAGE2 




$C055 


5/3 








24 


L&1 


#£00 


15 










Pi 3 




25 


STA 


(VARPNT) , Y 


16 BASCALC 




$FBC1 


52 




TXA 




26 


JSR 


GETSPA 


17 






53 






(BASL}, Y 


27 


PHA 




18 


LDA 


cv 


54 






KBDSTRB 


26 


TFA 




15 


JSR 


BASCALC 


55 






TXTPAGE1 


29 


LDY 


fS02 


20 


LDA 


CM 


56 








30 


STA 


(VARPNT) t Y 


21 


CMP 


CLDCM 


57 






?3D0-* 



Bien qu'un bouton permeite de le 
faire manuellement, il peut-Stre 
int^ressant d'^jecter une disquette 
de l'Unidisk 3,5 par programme 
a la maniere d'un Macintosh. La 
petite routine ci-contre permet de 
faire ToperatiOTi. 

La commande d'djection n'^tant 
pas g£r^e par ProDOS, il faut 
faire appel directement h la carte 
interface. Le programme de 
demonstration donne les quelques 
lignes 5 inclure dans votre 
programme Basic. 



Demonstration 



Source Ejection 



10 


DATA 32, 0,Q, 4, 10,3,142 f l? f 3, 










ORG 


$300 




9fi, J, 0,15,J,4,0,O 










OBJ 


$300 


20 


FGR I - ?t$ TO 704: READ J: 








ENTRY 


EQU 







PCKE I, J: NEXT 








DEVICE 


r;y; 


1 


,c 


INPUT "SLOT: INPUT "DRI 


2 


oo 


00 




JSR 


HN7RY 




VE: m ;D;S - (S+193) * 2B6 


04 








DF3 


A 


4Q 


If PEEK (S f 7) THEN PRIST 


Q ft 


03 






DA 


PAR LI ST 




»CE N'EST PAS UN UNIDISK": S 


80 


11 




STA 


ERROR 




m> 


60 








RTS 




50 


PQKE 769, PEEK (S t 255) * 3 


03 






FAFLIST 


DF3 






; POKE 770,5 / 256: POKE 779 


00 








DF3 


DEVICE 




,D 


or 


03 






DW 


CTRLST 


GO 


CALL ?€&;8% - PEEK (785) 


04 








DFB 


4 


70 


IB' ER - 40 THEN PRINT "DR1V 




00 




CTRLST 









E NON CDNNECTE": END 
















IF ER THEN PRINT "SFREUR ■ 








ERROR 


EQU 
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IF®] Nmmirg^Iky 



L'^Apprenti-FORTHier 1 ' (APF) 
est un systeme FORTH (interpre- 
teur+compilateur) ecrit en 
Applesoft sous DOS 33 et prevu 
pour fonctionner en 80 colonnes. 
II possede de plus Finteret de 
vtsualiser le contenu de la pile de 
DATA et I'etat du dktionnaire, ct 
permet done de saisir le fonction- 
nement du langage Forth 

Le langage Forth 

II fut invent^ & la fin des annees 
60 ct implement^ sur IBM 1 130 
par Charles H, Moore, Ses 
premieres applications furent 
consacrees a 1'astronomie, Forth 
est ^galement un outil privilegie 
dans le developpement de hi 
ludotique. 

Forth possede un grand n ombre 
d'avantages : 

• facile a Lililiscr grace :i une syn- 
taxe simple et peu contrai- 
gnante ; ['utilisation cree son 
propre vocabulaire de dialogue 
avec la machine ; 

• efficace car semi-compile ; il 
est interprets et permet done 
une programmation agre'able ; 
les definitions du vocabulaire 
sont compilces d'ou une 
execution trfes rapide (sauf 
pour APF car intcrpr<5teur et 
compilateur sont Merits et 
compiles en Applesoft, ce qui 
est le pendant de son caract&re 
didactique) ; 

• puissant car e'est un langage 
de haul niveau qui permet ce- 
pendant £galement de manipu- 
Icr les donnees au niveau des 
octets en memoirs* 

Forth ne fonctionne pas avec des 
instructions (comme le Basic, 
Pascal ou les assembleurs). Au 
contraire, l'utilisatcur peut ensci- 
gner son langage & la machine en 



creant des mots, ce vocabulaire 
etant place dans un dictionnaire. 
II est trds simple de definir un 
mot, qui ne sera reconnu que s'il 
ne fait appel qu'& des mots dejil 
connus : 

: Exemple 12+,; 

ExempLe affiche Ic rcsultat de 
1+2 (a noter que, en Forth, tous 
les mots doivent £tre separes par 
un espace). Bien entendu, un mot 
peut £tre efface avec rinstmction 
FORGET 

Les donnees manipulees en Forth 
peuvent £tre des variables ou 
tableaux des constants, ou 
encore des constantes imme- 
diate*. 

Forth est construit autour de deux 



piles : la pile de donnees ( la seule 
visualuee par APF) et la pile de 
retour, toutes deux Mties selon la 
structure UFQ (Last In First 
Out), 

Forth fonctionne avec la notation 
polonaise inversee, comme cer- 
taines cakulatriees : 

12 + 3 *donne9. 

La pratique d'APF permet de 
visualiser la pile tout au cours des 
operations. Conventionncllement, 
on represents entre parentheses et 
sepals par — les parametres sur 
la pile avant et apres execution du 
mot: 

4 (a b a + b) 

L'approche interpr£tt;e est repre- 
sentee par le dialogue au clavier ; 



Help ! 



Void la rnarche a suivre pour utiliser ce programme 
dapprociie du langage Forth. 

1 Vous foes le bienheureux possesseur de la disquettc 
d'accompagnement de la revue ? Passez a Vetape 7, 

2 Saisir er sauvegarder lefichier hinaire DICO qui condent 
les ordres Forth de base, le noyaUr 

3 Saisir CREDEMQ, le sauvegarder, f aire RUN 
CREDEMO pour crier lefichier TEXT DEMO APF > 

4 Saisir CREMESS, le sauvegarder, faire R UN CREMESS 
pour crier le ftchierMESSAPF. 

5 Saisir et sauvegarder GARDE APF et APF 22 A, 

6 Vous devez disposez sur la meme disquette desfichiers 
suivanTS {ce sont les seuls necessaires) : 

A GARDE. APF 

A APF 22-4 

B DICO 

T DEMO APF 

T MESSAPF 

7 Faites RUN GARDEAPF. 
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Quelques clefs pour l* utilisation, da programme 

St reporter £ tn hihhafcrtiphir. 



ORDRE 



FILE 
AVANT 



FILE 
APRES 



CQNNENTAIRE 



AND 

Ci 

CP 

MoP 

OOP 

ELSE 

EMIT 

FORGET 

I 

rr 

KEY 
.MOT 
£R 

aVEli 

ROT 

SNAP 

rum 



nl fiS 
ni m 



nl n2 



n3 
n I 



n , 



n 

"Lvxte" 

nl ti2 nJ 
MOT definition 



nl n2 

nl nit 

nl n2 

nl n2 

adr 
n adi 
adr 

nl n2 
actat adr 
adr 

n 
■'■ 



drapaau 



drapeaul 

nl n2 
nl fi2 
nl n2 n3 
nl r\2 



drapeau 

drape au 
dzepGeU 
timptiau 

n 

actat 

n n 



n 

n3 

nl r.2 nl 

fiZ t.3 nl 

n2 n1 



Mult lp} leal ion dt! nl par n? 
Leisse n3 sur 1m pile 
Soime dm nl et do n2 
t .•!•!(' n.'i sur la . '. «• 

Incriimente I 'indice dp bouole do n t 

L'exeoutlOTl reprend *u DQ correspondent 

tant que 1 'indict sst tnferieur A Le Unite. 
SousLrait n2 de /!j 

n3 sur la pile 
Afti cfit> lo ncmhrc n sulvi d ' un cspacti 

Afflche du t*xtn Jusqu'A f 

Divlse nl per r\2 (division enziirc) 

miss* n$ sur le pile 

MOT esr. cr4e dxns > dfr.i I anna t ni, 

1 'interprdteur compile U definition, 

chaquc ardrc do la definition dolt exister 
dans le vocabulalre cannu 
indlque is fin d'une definition 
Example de definition ■* 
; CAPRK PUP • ; 

Compare nl A n?. sur U pi la drapcau sere 
A 1 si nl*n2 et sinon 

Compare nl A n2r Svr la pi Jit drapaau sara 

A 1 sl nl-n2 et slnon 

Compare nl A n2* Stir la pile drapes u sera 
A -1 si nl<>r,2 et sinon 
Compare fljj A n2 . Sur la pile drepeau sere 
4 1 si nl>n2 et slnon 

Afticha cantcnu dc la n I a ..' : ADP 

M^morisa n A 1 adrcssa Adr (n sur 2 octets) 

Emplle le continu de I'adrasse adr 

in sur 2 octets) 

ST loQlque 

Memorise 1 'octet A l'edrnsst adr 
Emplle la eontanu dg adr 
at' fichu un retour chariot 
SupprliTfi If sontmet de la 
DupllQue ic somnQt do La pile 
Pe le forme 

<Cond> IF <si vr*l> ELSE <si feux> THBN 
Afflch« le cAractete dont le 

COOO Ar.ClI rr,t n 

supprlme un nont dw dictionnelra dl clux 
defints depuit. ex : FORGET CARRE 
Dane lea lx>ucle r Emplle I'lndlce 

ttx : DC1..1...LQ0P 

Si drepeau est. vr*t les mots qui suivent sont 
executes, slnon c*ux q;j4 xulvant ELSE la sont 
Empllti COde ASCII tir. J,i 'ouchc frappta 
Invotse le drapeau 

OCT loqiqut: 

Emplle ccpto de I'avifiL dernier nombrn 
Rotation de la pll* (3 cellules) 
EGhanQd dvs doux cellules en haut de la pile 
SymbOllS*. 1 la 1 1 n d'una condition 



alors que l'approche compilee est 
representee par la definition de 
nouveaux mots : 

i CARRE DUP * f 

Les programmes 
fournis 

CREMESS 

cr£e et modifie le fichier direct 
MESS APR L'utilkateur ti'a pas 
en principe a travailler avec, sauf 
s*il veut adapter le programme 
APR 



CREDEMO 

cree et modifie le fichier DEMO 
APF qui conticnt des exemples de 
sequences. Outre Taspect de- 
monstratif, on peut sen servir 
com me base de petits ''program- 
mes" 5 charger, 

GARDE.APF 

affiche la page de garde et lance 
APF. 



Comment se 
servir d'APF 

11 y a dt:ux modes : 
- normal 

■ pas & pas (pause apr&s chaque 
mot d'une meme ligne. 



Vocabulaire d'APF 

DEMO charge un des exemples 
du fichier DEMO.APF; 

INIT reinitialise le Forth (doit 
Stre en debut de ligne) ; 

RAZ reinitialise les piles ; 

CLS efface I'dcran ; 

BELL emet un beep' ; 

LISTE MOTS lisle les diction- 
naires ; 

MODE commute les modes nor- 
mal et pas a pas; 

QUITTE an-St du programme ; 

AIDE ;i!Tidie un ecran d'aide ; 

CARRAY tableau d'octets (n 
C ARRAY nam cree un tableau 
de n+ 1 octets auquel on peut 
acceder par C@ et C!). 



Les nombres sont sur deux octets 
(-32768 \ +32767), les mots sont 
limitfSs & 16 caract&res (154 mots 
maxi) et les phrases I 159 carac- 
teres. 

Les autres mots sont des 
classiques du Forth 79 (voir ta- 
bleau ci-joint) 



Bibltographie 

FIG Forth, disiribue par Ic Forth 

Interest Group 
Forth 79 

TransForth, avec des nombres r^els, de 

P&uIImiu-$ 
GraForth, avec de puissantes possibi- 

Htfis sraphiqocs, de Paul Lulus 
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Liste des mots da 
diet ioniuiirc de DICO 

(l* re colonne, puis 2&mz colonne). 



+ KEY 
CLS 

/ 

< I 

= DO 

> +LOOP 

<> IF 

AND THEN 

OK ELSE 

HOT BEGIN 

DUP WHILE 

DROP REPEAT 

OVER CONSTANT 

C$ VARIABLE 

C! CARRAY 

ROT FORGET 

SWAP AIDE 

CR QUITTK 

EMIT MODE 

! RAZ 
BELL 

LISTEMOTS 

? INIT 

@ DEMO 



F/c/7/er D/CO 

(creepar CREDICO) 

Apr&s avoir saisi c& coda 
sous moniteur, vous 
sauvegarderez par 
BSAVE DIC0.A$86Q1.L$19A 



8601- 


2B 


2$ 




01 


00 




2D 




860$- 


20 


00 


02 


86 


01 


2A 


20 


00 




03 




07 


2F 


?n 


CO 


04 


86 


8618- 


OD 


it: 


20 


CO 


05 


85 


13 


3D 


S620- 


20 


OC 


Of 


66. 


19 


3E 


20 


00 


8628- 


7 


86 


If 


3C 


3E 


20 


00 


08 


8630- 


B6 


25 


42 


4£ 


44 


20 


00 


09 


9638- 


:= •■■ 


2£ 


4F 


h2 


20 


00 


OA 


$6 


8640- 


32 


4E 


4F 




20 


00 


an 


86 


8648- 


jA 


44 


55 


50 


20 


00 


oc 


36 




41 


44 


52 


4F 


BO 


20 


00 


OD 


8658- 




I 9 


II 


56 


45 


52 


20 


00 


36 60- 


OE 


86 


5J 




40 


20 


Q« 


OF 


8668- 


B€ 


5A 


43 


21 


20 


00 


10 


H 


tif. -n 


63 


52 


4F 


54 


20 


00 


ii 


86 


8679- 


6A 


53 


57 


41 


50 


20 


00 


12 


8680- 


.... 


71 


43 


52 


20 


00 


13 


86 




79 


45 


40 


4S 


54 


20 


00 


14 


B6$0- 


8£ 


82 


21 


S o 


00 


15 


86 


99 


8698- 


2E 


to 


QQ 


16 


86 


92 


2E 


22 


E6A0^ 


20 


DC 


2? 


86 


98 


3F 


20 


00 




26 


86 


9F 


40 


20 


00 


19 


36 



86BQ- 


A5 


4B 


4b 


59 


20 


00 


1A 


IU, 


86B9- 


AB 


43 


4C 


53 


20 


00 


IB 


U 


36CQ- 


31 


3A 


20 


oo 


2C 


H(, 


B9 


3B 


86C8- 


20 


00 


ID 


86 


CI 


49 


20 


00 


86D0- 


IE 


86 


C7 


44 


4f 


20 


00 


IF 


86D8- 


86 


CD 


2B 


4C 


4F 


i f 


50 


20 


86E0- 


00 


20 


86 


D3 


49 




20 


re 


86E3- 


21 


86 


DA 


54 


48 


45 


4E 


20 


36FO- 


00 


2? 


86 


E4 


45 


4C 


53 


45 


86F8- 


20 


00 


23 


86 


t:n 


42 


45 


47 


87QQ- 


49 




20 


00 


? A 


86 


F4 


B 7 


3108- 


48 


49 


4C 


45 


2 o 


00 


25 


tf> 


8710- 


FD 


52 


45 


50 


45 


tfj 


54 


20 


871Q- 


DO 


26 


87 


07 


4 I 


4F 


4E 


53 


8720- 


54 


41 


4F. 


54 


20 


00 


27 


87 


8728- 


11 


56 


41 


52 


04 


41 


42 


4C 


8730- 


45 


20 


00 


28 


87 


1C 


43 


41 


8738- 


52 


52 


41 


59 


20 


00 


29 


H7 


8740- 


29 


46 


4F 


B2 


41 


45 


54 


20 


8748- 


00 


2A 


87 


36 


4 1 


1 9 


44 


45 


8150- 


20 


00 


2B 


87 


41 


51 


55 


49 


3758- 


54 


&4 


45 


20 


00 


2C 


8 t 


4£ 


3760- 


4D 


4F 


44 


45 


20 


0fl 


2D 


8? 


8768- 


55 


52 






20 


00 


2E 


B? 


8770- 


60 


42 


45 


4C 


4C 


20 


00 


;■/■■ 


87 78- 


SI 




4C 


49 


S3 


54 


45 


4D 


8780- 


4F 


54 


t>3 


20 


00 


30 


87 


n 


8788- 


49 


4E 


49 


54 


20 


00 


31 


87 


8790- 


7A 


44 


45 


4D 


4F 


20 


00 


& 


8793- 


87 


38 


4 4 













Programme 'CREDEMO' 

J REM ■*"■*»»»-»■■»•«■■-■■»•»**■■»-■■'■»*****■**■*****•* 

2 REM * Creation des phrases poor la coimandt DEMO * 

1 REM * du programme APF * 

4 REM * Fb } NLaauoraaky (e) 1995 CHANCELADE 24650 

5 REM * La fictile? C '«pjMi2fl DEMOMF * 

6 «£M * Ca programme s'appalle CREDEMO * 
$ REM + 

99 REM 

100 REM Proqramne Principal 

101 REM 

110 GQ5UB 1000: G05UB S60QG 

120 HOME : PftrNT *C0 flrwMWW eroe la fichier DEMQAPF qu 
i c&r>tle/ic its ohrtswt dm d«nM#CriClon n . B PRINT 'utili 
ambltM par le programme APE tl*APPR£HTI FORTH 1 or) sous 

1a command* DEMO. ": PRIST "Utts phrases contiennent au 
tua x I mum 159 caractcrcs . * 

121 PRINT "La nombrm dm phrax&s vat lirniLa ■ 99." 

122 PRINT : PRINT *T#p*r ^C> pour CftEER Oft* pflrj« 011 
pour voir un« phrast": PRINT "<t> pour juitt^r." 

J JO GET X*:X m ASC rJWl Xt X = ASC ft") THEN END 

140 ST X - (7 OR X ■ 93 THEN GOSVM 530; SOTO 120 

141 IF X ■ B6 OR X " 119 THEN GOSUB 703: GOTO 120 

142 GOTO 130 

500 REM CREATION 

510 HOME I PRINT "CREATION d'una PHRASE"; PRINT : INPUT " 
Namata ; "/WVS.ftry - INT ( YAL (NUS) 1 ; IF NU -c J OR NU 
> 99 THEN 310 
520 GOSUB 31000;PS - * m 
530 FOR I - J TO LEN fEf} 

UQ IF MIDS > CIIR5 (96) AMD MID9 (E5,I,1) < 

CtiRS (123) THEN PS • P9 t CHRS ( ASC ( MIDS (ES,I t lU 
- 32 t i GOTO 5S0 
545 PS - FS * MIDS {£5,1,1) 
550 NEXT ;t'3 - P$ 

f CO PH I NT D 5 "OPKNDWOAFF, I ! fiO ' 

370 FOR I m 1 TO LEN (E$: : PRINT DS"NRITEDEMOAPF> R m fNU f ■ 

,B"I - Jr PRIM? MIDS {ES f I,lJ: NEXT 
500 PRINT DS*CLQ£E»: RETURN 
€99 REM VOIR 

700 HOME : PRINT *V0IR une PHRASE": PRINT J INPUT ".Vuuera 



; *fNU$:Nil - INT ( VAt tNUS)); IF NU < 1 OR NU > 99 
THEN 700 
705 VTAB 6z POKE 36 t C 

710 FRJNT ; PRINT £>$"OPENDWaAPF.L160»:VT$ 

720 PRINT 0$ "READDEMOAPr* R«M 

730 GET Xfj IF X3 m CURS (13) THEN 740 

735 VTf * VTS + Xt: SOTO 730 

MO PRINT DS-CLQSE": PRINT : PRINT VTS 

750 PRINT : PRINT w Autr* t*p*r <RETVRS> Arr«t tapir <t> 

i KEY; IF PEEK (76B) < > 13 THEN RETURN 
760 GOTO 700 
999 END 

1QD0 Q - 45; REM IMPLANTATION DE LA ROUTINE SKETt 

1010 FOR I - TO Q - 2j READ Z%i POKE 7t$ + 1,Z\: NEXT 

1020 POKE 1014,1: POKE I0l5 f 3 

1190 RETURN 

1200 DATA 44, 2,192,16,251,173,0, 192, 44,16, 192,41,127,141, 

0, 3,201, 32,144,14, 165, l$4, 24,105, 3 
1210 DATA 133, 184,165,185,105,0, 133, 1$5, $6,201, 13, 240, 238 

,201,B,?4Q,?34 t 76.1,3 
30991 REM 

30999 kZM ENTREE d'une ILgne de 159 i=aracteres 

30999 REM 

31000 VTAB 2: PRINT : VTAD 19; POKE 36,0: CALL CM; PRINT 
PM$t INVERSE ; PRINT " "/ .• NORMAL ;NC - 0;Ei - 

- FRE tQ) :X - I 

31010 IP NC - 160 OR X - 13 THEN 31050 

310}$ VTAB 2; PRINT ; VTAB 20 f INT (NC / BO); POKE 3£ t N 

C - INT (NC / 60) ' $0 

31020 t KEYzX - PEEK (769) :XS - CURS (X) z IF X < 123 AH 

D X > 96 THEN X - X - 32;XS - CURS (X) 

31030 It X - 9 THEN GOSUB 31950 

31040 It X < > S THEN GOSUB 31900 

31041 GOTO 31010 

U050 tr X < > 13 THEN 31QV0 

31060 NC - NC - l;S9 = MJ0$ {£$. I, NC) : IF RIGHTS fEJ, I) 

- ■ " THEN 31060 

31061 RETURN 

31897 REM 

31898 REM cn n'a paa tape CTRL-H 
31 II 99 P&f 

31900 IF NOT (NC » AN0 (X » 32 OR X * 13)) THEN 31910 
31906 PRINT BtPS;; IF X - 13 THEN X - 
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31907 
31 910 
31911 

31930 

■■' 

I A 

3/ 949 

31 950 
3l9b€ 

31969 
31970 



5 €020 

sso?s 

57070 

57020 
57020 

57010 
59000 

5S010 



53015 
SHU 7 6 

5S0£P 

5SCJ0 
550*0 
■ yfj-i. 1 
53050 

53060 



FJBN PfllNr BlPSf: RETURN 
IF X < > 13 THEN PRINT X 
NORMAL 



:TfiL-H 



PRINT BIPS/: RETURN 



/ BO) : POKE 36, N 
; CHRS t8) l CHRS ( 



RETURN 

IF X < 32 AND X < > 13 
NC - NC f U:E$ » e$ * x$, 

9n INVERSE i PRINT " 
RETURN 
REM 

REM an a tape 
REM 

IF NC i D THEN 
GOSUR 31970 
RETURN 
REM 

REM Recul 

VTAB 2: PRINT : VTAB 20 + IN? (NC 
C - AO ■ INT WC / SO; : PPJNT ■ *; 
flJ/.J INVERSE i PRINT H NORMAL 

MI0$ (E9 t l,NC}i RETURN 

REM INITIALISATION 

D$ - C#A$ fJJ; CARS (4):PMS - "Votr* p/irjff* .'":F 
IPS - CURS (7):CN * - 958 
Z - OiW - i 

l!£W CREATION du fichlor DEHOAPF 1* Jar* foil 
D9 •* CURS (13) * CHRS 141: PRINT DS'OPENDEMOAPF" : 
PRINT DS "DELETEDEMGAPF" ; PRINT U$ n QPF.NE£M&APF, 11 €0 a 

fs * for i - l To I59:t$ - n + next 

FOR I m TO 99: PRINT DS "NRl TEDEMOAPF, R "J ; PRINT F 
$: NEXT 
PRINT DS w CLOSE m : END 

HEM LISTS IMPR1MEE DES PHRASES DE DEMO 
REM LA FIN DU FICHIER EST INDIQUEE PAR LA PHRASE : 
FIN 

TEXT ; HOME : PRINT "LISTE IMPR1MEE DBS PHRASES DE 
DSHO'i PRINT : PRINT "Preparer I ' IMPPIMANTE puis Zip 
ar una TCVCHE m t : GET XS: PR INI XS 
D$ - CURS (13) + CHRS (4} :NU - 2 

PRINT D$*PRtl m : PRINT "Phravva a* U COfWMflda DFJ40* 
: PRINT : PRINT D$"PRt3" 

PRINT ; PRINT DS-QPENDEMOAPF, L16Q"iVTS - M 

PRINT D5 n READDEPtQAPF,R*NV 

GET X$: IF XS - CHRS (131 THEN 58050 
WS * VfS + XS; GOTO 58040 

PRINT DS*CLOSE": IF VTS - -FIN" THEN PRINT D$ m PRt3 
*t END 

PRINT DS"PRil " 

PRINT : PRINT *ftin» m NU m ;"; PRINT VTS 
PRINT D$ n PRf'J*' 
NU * NU i 1: r.OTO 58020 



Programme APF22-4' 

1 REM WN##^MM*#*#«##?»»»WV*»»W»»IP»fW#W 

2 REM ' L'APPRZNTI rOZTHirr V*r*ian J T * 

3 REM * * 

4 REM ' Taj NiwjQrv*ky fcj 1985 ~HANCELADE 24650 

5 REM MM.«*#»Mii*«i*«"*****««««"»iW**rtl 

9* RKM 

100 flEff Pragrsmma Principal 

101 REM 

102 GOSUB 56000; REM In I c f 4 J J* Jofl 

204 COJUtf 57?0Q: GOSUB 1353; ftfM EtafaJ i t J 'ecren 
7J0 fTOSOJ? MflOfl: fiOSd« 51030? ft£W Met jo DICO 
120 £U ■ VR 

130 IF NOT SU THEN 180 
135 X - PRE (0) 

HQ GOSUB 31Q00: IF MIDS (E$ t l,i) « *Q£NQ* THEN GGSUB 1 
6000: GOTO 150 

141 IF M1DS (ES,I t 4) « "I.VJT" THEN GOSUB 350: GQTC 130 

150 IF MIDS (£5,1,2} - "r n THEN G3SU8 20000: GOTO 160 

151 GOSUB 2000 

2$0 IF ER < > Q THEN GOSUB X0000 
170 GOTO 130 

180 IF MIDS (ES 4 l,4i - "INIT* THEN RUN 

1 99 PNf) 
297 REM 

29B REM ENTUEE d'une Touches u CLAVIER 

299 PEM 

300 INVERSE : PRINT " V I NORMAL ; C HErzX - PEEK t?6S) : 
XS - CHRS iXll PRINT CHRS CHRS (32) f CHRS (M)jl 

RETURN 

JS0 VTAB ?; PRINT ; VTAB J3; PRINT ^anfirmttr par 'C ■/ : 
GOSUB 300; IF XS «■ m C OR XS m » c ■ THEM SO - FX: RETU 
RN 



355 

1397 

1298 

1239 

1300 



1347 
13W 
1349 
1350 

1357 
1358 
1359 
1360 

1997 
1999 

1999 
2000 
2011 
2025 

2020 
2030 
2031 

2032 

?Q33 

& u 

2035 
2036 
2037 
2039 
2040 

2045 

■ '"'<!> 

2060 



2065 
2070 
2197 
21 se 
21 55 
:vur 
2210 



2215 
2220 



2240 
22 1? 
229$ 
2299 
2300 
£310 

2397 
23 99 
2399 

2400 
2410 

2497 
2498 
2499 
25 DO 
2510 
2520 
2597 
2598 
S3 99 

2600 
2605 

2610 

2620 
2697 
2698 
2699 
27C0 



VTAB 2: PRINT : VTAB 23.' CALL CHI: RETURN 
REM 

REM SuiCtf Taper Rtit ur/J 
REM 

PRINT "Pwr cnntlnucr Taper uns TiiiChe ";: GOSUB 300 
:T9 - PEEK 1371: VTAB 2: PRINT : VTAB T9 + 1; POKE 
36,0: CALL CL; RETURN 

RW Made NORMAL 
REM 

VTAB 2: PRINT : VTAB f: POKE 3£ f 62< PRINT "NORMAL 
»:MF - FX: RETURN 
REM 

REM Made PAS A FAS 
REM 

VTAB 2: PRINT ; VTAB 4i POKE 36,62i PRINT "PAS A PAS 
W :MF - VR: RETURN 
REM 

fiF-M EXECUTION 
REM 
PR - U 

GOSUH 1590C; GOSUB 15920,'CO - 4: GOSUB 1500D 

IF NOT (PR t LEW !E$) AM0 ER ■ Oi THEN 2060 

GOSUB 32000: GCSUB 32090 

IF ER < > Z THEN RETURN 

GOSUB 3220 C j IF NU * > t THEN 2034 

GOSUB 32 IOC r IF NU - 99 THEN GOSUB 3O0O.- GOTO 2839 
ER ■ IB: RETURN 
IF NU > 29 AND NV < 39 TfiEN ER - 6; RETURN 
IF NO - 2H THEN ER ' 28; RETURN 
JF NU m 29 THEN ER = 2 7; RETURN 
QQSUR £200 

IF F.R < > Z THEN RFTUFN 

IF MF THEN 00301 15920zCO - 42: GOSUB 25O0O; VTAB 2 
: PRINT : VTAB 24: GOSUB 13Q0 
lr Mb THP.N G05UL fi.'OP: GOSUB 15920: 4: GQSUB | 

:wo 

OPTO 2015 

IF NOT NF AND ER - 7, Tfi&i GOSUB 15920iCO - 42: COS 
UB 15000: VTAB 2: PRINT i VTAB 24: POKE 36 r 5: COSUB 
1300 

GOSUB 15900: COSUB 15920:00 « 4: 0QSUB 1500O 

RETURN 

REM 

REM Execution d'iln fflOt 
REM 

IF NU > 99 THEN J3C0 

ON NU GOSUB 3100,3200, 3300,3400,3500, 3600, 3yQQ r 3&00> 
3900, 4000, 4100, 4200, 4300, 4400 f 4500, 4 GOO, 4700,4800; 4? 
00, $000, 5103, 5200, 5300, 5400, 5500, 5600, 5700, 5600,5900 

, fiDf.O 

IF NO * 31 THEN RETURN 

ON NU - 30 GCSVB 610Q, 62CO,6300, 640O,6i)OQ,6G0Q>£7OQ, 
6800, 6900, 7000, 7J0O, 7200, 7300, 7400, 7500, 7600 t 1700, 78 
00, 7900,8000 

RETURN 

R£H 

FtM Execution d'uti fh&Z C*4)4 

ON PEEK (AD t LM t 3) GOTO 2400, 2400,2600, 270Q 

t:k - IB: RETURN 
REM 

REM i« mot Crcmve 1 eat une CONSTANTS 
REM 

COSUB 1520Q: IF ER < > % THEN RETURN 
POKE FN VP(FN\}, rEEN tAP + LM f 4} ; POKE FN Vffffi 
i; * 1, PEEK (AO f LM * 5} : RETURN 
REM 

REM Jo P<rt trcuve est une VARIABLE 
REM 

GOSUB 15200: IF ER < ^ Z THEN RETURN 
T9 - FN VPlPNiJ; POKE T9, FN RQtAD + LM i fj 
POKE T9 + l f INT UAD * LM + 4) / 256) ; RETURN 

RFJ1 

REM Je mat Cr«uv4 aflt tin TABLEAU ICARRAYl 
REM 

PE - 1: GQSUB JE5JJ0; IF ER » Z THEN RETURN 

TP* - PtfifFfflJ; JF TP* < t OR TP* > PEEK (AD * LM ♦ 

4J - 1 THEN Ek - 33: RETURN 

T9 - FN VPiPNii: POKE T9, PEEK (AD * LM + 5 + TP*); 
POKE ?9 # U.2 

RETURN 

REM 

REM Execution d'un MOT CREE 
REM 

PP% - IsPRtPRIi = AD * LM t 3 



22 
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2730 if PR* - Z OR ER < > I THEN RETURN 
2735 pf n pR(PR%):PR% - Pfll - 1 

2740 IF PEER fPTJ - J 0* PEEK /PTJ - 2 OR PEEK - 

J MEN OW PT COJi/ii 240C r 2500 F 2£C0; COVO 272Q 
2750 IF PEEK (PT) f > 4 THEN 2760 
2?5l IF PEEK (PT + i; - 255 THEN 2730 

2752 xosup 15220; IF EF < > Z THEN 2730 

2753 PR(PRt) * FT t 1: GOTO 2730 

2760 IF PEEK (PT) - lfB MEN N * NU:NU - PEEK (FT * .Jj ; 

GOSUB 282C;NU ' N; GOTO 273Q 
277Q [t PEEK tPT) - 129 THEN GOSVB 2 950 
2800 COTO 2720 

2920 IF NU > 99 OR NU - 23 2flJ5 

2921 GQSU8 2210: IF ER < > Z MEN RETURN 

2922 PT - PT + 2: GOSUB 15220: IF ER * 2 THEN PRtPRI) * PT 

J RETURN 

2825 IF ER < > E THEN RETURN 
3830 IF NU m 23 THEN 2900 

2835 15220: IF ER < i Z THEN RETURN 

2840 P.t* fPJtfJ - Pf + 2 

2945 GOSUB 9000: kt£4 charoho i'jdTBJ-nt du /net ffroo NV 
2850 GOSUB 15220? IF ER < > A TtthZN HtlTljRN 
2855 PR (ppl) - AD: RETURN 

29Q0 TP - PEEK {PT + 2}: GOSUB 15200: IF ER 4 * 5 MEW 

flETUzw 

2S05 IF TP < ? Z MEN FOR I - U TO TP;PM(PM%) - P££ff 

(PT * 2 * I) t GOSVB 5QQQ:PM\ - PM% t U* tfEJfT 

^SOe FM* - Ftf* - U; £J03UB 15220; IF ER < > £ MEN RETURN 

2910 PR {PR*} - PT f 3 f TP: RETURN 

2950 003 UB IS20Q; fF F.H < > Z THRN RKTURN 

2955 T9 a Fn i/Pf^Mi^; fuke t9* PEEK (PT + ttf : POKE T9 + U 

, PEEK (PT * 2} 
2965 GOSUB 15220: IF ER * > Z THEN RETURN 
2970 PR(PR*) " PT + 3; RETURN 

2997 RFM 

2998 REM • » * * 95 ( Immmdj. At} * * * * 

2999 REM 

3000 GQSUB 15200: IF ER - Z THEN ?M\{?M\} - VN 
3G0S RETURN 

WW HUM + 

3100 PD - J: OUUB JJJJtO: IF ER < > J FtfEW ^TOWV 

TP ■ PM\(?M\) t PM%(Ptit - UK' GMUfl EA < > 

Z EHEN RETURN 

3iio pw*rp/fi - tfi ■ TPtpm - pwi - ffi return 

3199 W4 - 

Pfl - ^: COSUff 25510; IF ER e > 2 THEN RETURN 

3205 TP - MtfpJfl - fJ - PW*fPrt*J: J5^0(3; if frt < > 

Z RF.TURN 

2210 FHttPM - Ui ■ rP.-Ptft * P/f* - U: RETURN 

3299 REM * 

3J00 PO m 2: GQSUB 15210: IF ER < > Z THEN RETURN 

3305 TP - PMifPM* - yj ■ mtroW i CS5i/fi JS^Pfl; /P Eft < > 

2 WEW RETURN 
3310 PM%(PM9 - U; - TPiPHt - PAf* - ft RETURN 

3399 REM **** / **** 

3400 Ft? - J.- GQSl/B 1 $21 ; IF ER < > S THEN RETURN 

3402 IF PflirPtflJ - £ THEN EA - ^ RETURN 

3405 re - iNT tpmiml - u) / PM%fPMtn: zusub 15400: IF 

ER € > Z 7'ffEtf RETURN 

3410 PMifrn* - Ui - TP;m - fW» - C/; fffftfJW 

3500 PD b J; fiOSWfl 1521Qi IF ER < ?• 2 THEN RETURN 

3510 IF Prtl fPrtl - U) c PMttPM*) THEN TP ■ - 2; GSrD JSi'O 

JS2tf TP * GOTO 

JS5# ffEW ***^ - 

Jfflfl Pfl - J? G4SV& 15210t IF ER < > 2 THEN RETURN 
JSJO IF PmtPti* - V) * PMtPNU THEN TP - - J: COTS J S20 
362Q TP - Z; GOTO 3820 
2699 RF-M > 

17Q0 PD = 2; GOSUB 15210; IF ER < ? Z THEN RETURN 
1710 IF PM\{PM\ - $) > PmtPNi) THEN TP - - 2: GOTO 

TF >■? f.T3Tf7 ^ H . 1 ■ .' 
J 799 O 

PD - COSUfl 15210: IF ER < ^ Z TWEiV RETURN 
3810 IF PNi{PM\ - tfj < > PMIfPWt; TtfEN TP ■ - I? SCTO J 

JtffJ 

TP - £ 

Jfl^O PWi - PWi - C/:PM/W*lJ - r>; ff£Ti/iiN 

99 #f*3M **** AND **** 

39co pd «: zj co^yfl j5j;o ; ;r ^ > rw^ petvaa' 

J9J0 PM*iPM% - UJ m Z Ofi prfii'PHtJ - £ THEN TP * 2; £QT 

O 3S20 

39-20 TP - - lj GOTO Jfi^O 
.3999 BEW **** Ofl **** 

JOCO PD - & CO^i/fl J 521 Q; IF ER * > % THEN RETURN 



4010 IF PM*fPW* -» CTJ < ? 2 Cfi PHIfPtf*; < > £ HfEtf TP * 

- J : GOTO 

TP ■ i; CPT5 50^0 
4095 REM **** 

JlfJO PD ' Ui GOSUB 15210: IF ER < ? 2 THEN RETURN 
4110 If PMitPMi) o Z MEN PW* f PH%) * - 0: RETURN 
4120 PMi(PMi) w Z; RETURN 
4199 REM **** SUP *** - 

J50D PD - tfj GOSUB 15210i IF ER c ^ Z T/fEN RETURN 
4210 GOSUB 15200: IF ER < > Z THEN RETURN 

4220 PM% (PHU - Prtl ^Prt* - UJ ; ffErORN 
4J99 rot DROP **** 

PD ■ Uz GOSUB J 5210: IF ER < > 7, THRU RETURN 
4310 Pf4% - PHI - Ql RETURN 
4399 REM OVER **** 

44Q0 PD - J; 15220: IF BR < ^ Z THEN RETURN 

4410 SOSU8 15200; IF ER < > 2 THEN RETURN 
4420 PHttPtf*) - PWtCP^t - 2); RETURN 

4499 REM **** Cm **** 

4500 PD - Ux GOSUB 15210x IF ER * * 2 THEN RETURN 
4S10 PMtfPNlt " PEEK fFH*(PMt)}i RETURN 

4&9S) REM Ci **** 

4£0O PD =■ 2; GOSUB 15210.- IF ER f > Z T//EM RETURN 

4£10 IF PMi(PM* - Ui < Z OR PMifPMi - U) > 2SS THEN BR - 

30 i RETURN 

4615 POKE PM4 fPMIJ ,PNi {PM* - Ut : FM* - PM* - J; RETURN 
4699 REM ftOT **** 

A7D0 PD ■ 3: GOSUB 15210: IF ER < > Z THEN RETURN 

4?10 TP - PM*fPM# - 2):PM$(PM* ~ 2} ' PWtfPtft - W;RM%(PMl 

- Ui - PMlfPmt iPNtiPMij * TP: RETURN 

4799 RF-M **** SNAP **** 

4800 PD ■ COi'Ufi J5,?J0; IE ER < > Z THEN RETURN 

4810 TP - PtftfPMl - ViiFMMPM* - U) - PMt {FN*} : fni (PM\) ■ 

TPi RETURN 
4899 REM **** CR ***• 

fl55D EL - EZ, + U:£t ■ V; IF El < > S THEN RETURN 

4910 FOR I - V TO 4;ECS(I) - ECSU * Ui: NEXT :EC$(S) - p 

«:EL - S 
flMO 50055; flETUAV 

4999 REM EMIT **** 

5000 PS * It GOSUB 15210: IF ER < J Z TffEW RETURN 
5010 IF P^I/PMi; > 555 Ofl fPrt* fPH*J -t AA'£> PNtiPH.*} < 

> 13) THEN ER - J<3: RKWHN 
5015 IF PMttPmi - 13 THF-N GOSUli 4900: RETURN 
5020 £Cf {EL} * E5$ (EL) t CHRS fPNt^PMIJ;; VTAB 2; PRJN't : 
VTAh 4 * EL: POKE 36,17 f EC; PRINT CHM tPNitftW) 

)j:EC - EC + J; IF EC - 1? THEN GOSUB 4900 
5030 PM* = PM* - U: RETURN 
5099 HEM **** I STORE **** 

StOO ■ 2: GOSUB lS210i IF ER < > Z THEN RETURN 
5110 POKE PM*fPtf»», PEEK ( FN VP (PMk - U) * V) t POKE PW» ( 
PM*i * U, PEEK ( FN VpfPW* - Ui)iPM% - PH* - 2: REtV 

m 

51*9 REM - **** 

5200 PD - U; GOSVB 15210: IP ER < > I THEN RETURN 
521C VT& - STR5 (PMtfPMtf): GOSUB 4900:EC$ tELi - VTSlEC - 
EC + LEN (VTtj 

5220 VTAB 2: PRINT : VTAB 4 + EL: POKE 36 r 16: PRINT EC$(E 
XJ;:Ptf* = PH* - V: RETURN 

5299 REM "** .* **** 

5300 IF HIDS (ES,PR,U) - " ■ MEN PR ■ PR A U- GOTO 5JO0 
5305 IF PH% > - I J MEN E/t » 21 : RETURN 

5JJ0 IF MIDS fES, PR # i/; - CtffiS fJ4J OR PR > - NC THEN S 
330 

Ht5 PM* - PW» + U:PM*(PI41} * A5C f NI0$ tK$ f PR,tJ)} : Costf 

B 5000: IF ER < > Z THEN RETURN 
5320 PR ■ PR 4 U; GOTO 5310 

5330 IF M1D$ t£S,PR,U) < > CHRS (241 THEN ER » 31; RET 
URN 

5340 Pft - PR + U: RETURN 

5399 REM **** ? 

5400 PD ' U; GOSUB 15210: IF ER < > 2 WEN RETURN 
5410 GOSUB 5510: GOTO 5210 

5499 REM * * ** a A ROBA S FETCH * * * * 
t>500 PD * V: GOSUB 13210: IF ER < > 2 THEN RETURN 
5510 T9 - PEE,f fPAflfPMU; + PEEK /PWI (PM%) * 1) ■ 25 6 
5520 IF T9 > NX THEN T9 - T9 - 65536 

55.10 iwtCPMtj = TQ; RkTlJkN 
5599 REM **** JCPJT **** 

JfiflO GQSUB 15200; rf £TJl < > RETURN 

5605 VTAB 2i PRINT i VTAB 4 + ELi PONE 36, EC * 17: GCSUB 

300; VTAB 2: PRINT iPM4(PM4) - ASC (X?) : RETURN 
5£$Q REM " *■ CiS 
57CD WUfl 50CC5: RETURN 

5799 REM **** +*** 

5800 ER - JJ: RETURN 
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5899 
$300 
5999 
5000 
$020 
$030 
$099 
$100 
SI 10 

$199 
6200 
6210 
€215 
$220 
030 
$299 
6300 

£310 
£320 
$3-30 
$340 
£399 
£400 
£499 
£500 
6599 
6600 
6699 
6700 
6 7J0 

672C 

6799 
6800 
$999 
$900 
$910 
$999 

7005 
700$ 
7010 
7012 
7015 
7020 

/G? 

7030 

7035 



7040 

7050 
/7.f,., 
70 99 
7\00 
7105 

7110 
7115 
7116 
7120 

7125 

7130 

ri4Q 

7145 

n >jt) 

7199 
7200 
7205 
7210 



'215 
7220 



RETURN 
?. THEN 



> Z THEN RETURN 
U) :FM* - FMI - 2;P0 



> 2 THEN RETURN 



REM **** ; *"* 

ER - 27: RETURN 

REM **** 1 **** 

IF P0 " Z THEN ER - 24 

GOSUB 1520Q: IF ER < > Z 
PM%tPM*) 10: RETURN 

fl£tf /JO 

fO - 2: GOSUB 15210 t IF ER 
ID - PWt (PM\) .* II - PMI (PN* 

: RETURN 

REM +L00P ***• 

f>0 - U; COSUB 15210: IF ER 

IF PO ■ Z THEN ER - J J: RETURN 
ID - ID * Ptt\(PM%) :PM\ - FN,* - V 

IF ID < 11 THEN PT - P0 

RETURN 

REM *•** IF 
PD - U: COSUB 15210,' IF ER < > I THEN RETURN 

IF PHI (PM%) -c > Z THEN PWl - PN* - U; RETURN 
PMk - PMI - U 

ND - 35: GGSVB 880C; IF PT < MX THEN RETURN 
Nt) - 34: GCSUB B600; RETURN 

REM **** THEN 

RETURN 

REM *■* ** ELSE 
//D - J4r GCSUB 9800: 

REM •*** flfc'OJA 
Ptf - PT.- RETURN 

REM **** KH2LE 

PD w u: G05 UB 15210, 



PT 



RF.TLRN 



CONSTANT **" 
GOSUB 15210: IF ER * 
GOTO 7005 
**" VARIABLE 

IP MID$ (E$,l, IFN WQS}} < 



> i THEN RETURN 



i i m 4 

If BR < > 2 THEN RETURN 
IF PM*tPMt) < P 2 THEN PMt - PAfl - Ul RETURN 
PM* " PM* - U;SD ~ 36l GO SI] 3 ddOQ : RETURN 

REM REPEAT 
PT ■ P«; RETURN 

REN 
PD * 
Tl - 
'-'J' H 

TJ - 

RETURN 

GCSbB 32000: IF ER < > ?, THEN RETURN 
IF MOS - CURS 1131 THEN ER = 29; RETURN 
GCSLB 32200: IF NU < > Z THEN ER - 20: RETURN 
GOSUB 32090 

IF FD + LM + 9 MX OR MC - 255 THEN ER - 4t 
ft» ; - Z TO LM - U: POKE FD ' 4% ASC ( MIDS 
f Ut U) J ; WEXT 

POKE PO * 1,32: POKE Ft) * 1 t V,lt POKE FD * t t 2,M 
C: POKE FD * I * W 
if- Tl 2 VHFN POKE FD > I ' 4.2: PQKg 19 I I I V#| 

POJTE Pfl ' J i fi,Jii 
Jf TJ - U rA£f P0^£ FP * I *■ 4, PEEK I FN VP(PM%)): 
POKE FD * I + 5. PEEK t FN VPfPM*) + Ul : POKE FD * 

t • (T^5a?P«* - Wrt - u 
PCKE FD *■ 1 + B, FN RQ(DM): POKE FD * 
/ 25$) 

DM - FDiFD - FL ♦ LN + 9:MC * MC + U 
CQSUB 51000: RETURN 
REM 'A** CARRAY 
PD - COSi/fl J5^J0r if ffi * -> / WEN 
TP% - PM*(PM*1 * U: IF TP* < U OR flPI > 
JJr RETURN 

WOCO; JF C7A < ^ Z TtfEW RETURN 



> HGS THEN F.R ' 



RETURN 
(MOS, I 



7, tNT tDM 



RETURN 

\27 THEN ER ' 



IF HOi * CHRS 113) THEN ER • 29: 
GCSUB 32200: IF Nit <r > 7. THEN ER 



RKTURti 

- 20: RETURN 



IJ4 ■* ? * TP* > MX OP MC - 255 THEN ER - 4: R 



POKE FD 4 1, ASC i M1D$ (M0$ f 1 
U t Z; POKE tO + X * 3,H 



• i *■ m*233 

PQKK FD * 1 



IF FD 
ETURN 

FOR I * Z TQ IN 
+ V, VI i : NEXT 

POKE FD 4. S f 32: POKE t'D i 1 
C: POKE FD + I + 3»3 

POKE FD + 1 *■ 4,TP%: POKE FD * I 

POKE FD * I * 7 f TPI, FN RQIPMi 
?P%, INT (DM / 256* 

DM - FD:FU - FD * 1J4 * 9 * TP\:MC MC * U: GGSUB blQ 
OOtPH* - PMi - U: RETURN 
REM ■*** FORGET 

CtisUB 32000: IF ER t > Z THEN RETURN 
IF MOS = CHRS (13) THEN ER - 29: RETURN 
VTAB 2; PRINT z VTAB 23: CALL CW: PRINT "i:t#j-vrtii3 s 
ur ? O/N GOSUB 300: IF X$ < > "0" AND XS < > " 

d" AND Xf < > -N- AND X$ < > "n* THEN 7210 
IF XS ' H fi* OR X$ ■ H N m THEN PR - NC: RETURN 

VTAB 2: PRINT 

GOSUB 32200i IF MOS - Cl/RS (13} THEN ER = 29: RETUR 

U 



7230 IF NO * 2, THEN ER ~ 18: RETURN 
7240 IF NU < NW + B THEN ER - 22 J RETURN 

7230 FD * AD:AD - AD * TP: GOSUB 5I900:DM - PEEK (APi * 2 

3$ + PEEK (AD + W 
7260 MC ■ NU: GCSUB 51000: RETURN 
7299 REM **** AIDE 

GCSUB 57000: GDSUB i720Q:CO - 4: GOSUB 150O0: GOSUB 
32Q9C 

GCSUB 50050; GOSUB 1350: GOSUB 51000 

VTAB 2: PRINT : VTAB 19: PRINT PMS: PRINT ES; RETURN 



7300 



7310 
7320 



7399 REM «•« QUITTE **** 

7400 VTAB 2: PRINT i VTAB 23: PRINT *Contirtn9r pjr f C* 

j GOSUB 300: IF XI - *C" OR X* - "c* THEN TEXT : HO 

ME : PRINT "Au revoir "j END 

7410 VTAB 2: PRINT : VTAB £3; CALL CK: RETURN 

7499 REM **** MODE 

7500 IF NOT MF THEN GOSUB 13$0: RETURN 
7510 GCSUB 1350: RETURN 

7599 REM **** RAZ 

7$00 GOSUB 153C0; GOSUB 15900: GOSUB 1$9£0:PR - NC: RETUR 

n 

7699 REM flEtt 
77D0 PPINT DIPS;: RETURN 

7799 REM **** L1STEN0TS ' mmm 

7800 AD ■ DM: GOSUB S1900:TP - Z: TEXT 
7810 IF AD - Z THEN 79 70 

7815 VTAB 2z PRINT i VTAB 13 + TP: POKE 2$*54 
7820 IF PEEK \AL) - 32 THEN 7B5C 

7830 PRINT CUPS ( PEEK (AD) ) ; :AS> ■ AD + U; GOTO 7820 
7950 TP - TP * U: COSUB 5\900:AD - PEEK (AD) * 25$ + PEE 

K (AD * U) : IF TP - 5 THEN TP - Z: VTAB 2: PRINT : U . 

TAB 23: GOSUB 1300: VTAB 2: PRINT : VTAB 23: CALL CU 

; GOSUB 51900: TEXT 
7B60 GOTO 7BI0 

7B70 IF TP * > Z THEN VTAB 2; PRINT : VTAB 23: G9SUB 13 

00: VTAB 2: PRINT : VTAB 23: CALL UN 
7680 GOSUB 510CO: RETURN 
7B9S REM "" DEMO **** 
7900 ER - 26: RETURN 
7999 REM "••» INIT *"* 
B0O0 ER " 26; RETURN 

3798 REM fltffrhGFC/l* rf'UD Pict dc numeru ND dJHJT MM fnnt srr 

OB 

8799 REM (utilise pour ELSE THEN *t REPEAT) 
$800 FT - PT + 2 

882C IF PEEK tPT * V) - Nfi OR PT > 'MX THEN RETURN 
flflJO TP PEEK {FT} - 12B THEN PT ■ PT \ 3; 8820 
BB4C IF PEEK 'FT) * 128 AND PEEK (PT + ft) < > 23 THEN 

PT - PT f 2; GOTO 9B20 
8B5C PT * PT * 3 + PEEK tPT f 2): GOTO 8920 
8997 REM 

REM Ch*rr.hc 1 Wresjcr dv no: cmc NU 
REM 
1 - LM 
IF 1 = Z THEN RETURN 
IF PEEK U) < > 32 THEN 1*1* 
IF PEEK "ft * 2) - NU THEN AD - J 



8998 
839? 
90OC 
9C05 
902C 
9C15 

05 

9020 AD - 

9991 REM 
9998 
9999 
tOOQQ 



U: GOTO 9010 

* 4:1 - 2: SOTO 90 



Zi GOSUB $1000:! - 
; GOTO 900b 



PEEK (AD) * 256 * PEEK (AD 



REM 
REM 

:f ER 



Affichsyc dca mtutsiats d ' ERREUR 

"Errour d'E/S 3Mt Diiqumtte 



}0QQ4 

nmil i 



10010 



■ am.' 



10030 ER 
N 

10997 
10998 
10999 

11000 



3 4 TrfEN HS& 
; GOTO 1001 
VTAB 2: PRINT : VTAB 2 

PRINT DfQPEN MES$APF^L39 m : PRINT 0$"READ MESSAPF , R 
"ER: INPUT HS$: PRINT D5 "CLOSE" 

VTAB 2: PRINT : VTM 23: CALL C*t: PRINT H$S: VTAB 2 
0)CO - PR: IF PR > 80 THEN CO - PR - 80: VTAB 21 
POKE 38, CO - 1: INVERSE : PRINT " NORMAL ; VTAB 

2: FRINT : VTAB 24: GOSUB 1300: VTAB 2: PRINT : VTA 
B 23: CALL CM 

I: GOSUB 15900: COSUB 15920: GOSUB 1S300: RETUR 



Mlfifi *n pl*c* di D1CO 



PRINT "Preparation dti Diction 



REM 
REM 
REM 

VTAB 20: POKE l&.10i 
rtilr* an COUPS 
1100b PRINT P$"HLOAD DICO m 
ltO\0 FD * REM FD-FtNDICO 

11020 DM ■ 34705: PCM DH-IASTMQT (UEHNlER MOT) 
11025 AY - FDi HtM FIN DO D1C0 DE BASE 



11030 I - DM: K 



NM 



24 
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1 1040 IF I - Z THEN RETURN 

11050 IF PEEK tl) * > 32 THEN TS(Ki - T$(K) * CHR$ ( P 

EEK (1)):I - J ♦ V: COTO 11Q50 
110&C AD - Is GOSUB 51S0O;K - K - U; VTAB 20; POKE 36,51; 

PRINT CHRS (42 j K - { INT IK / 2) * 2) ) 
11070 I - PEEK (AD) ' 256 * PEEK (AD * U) ; GOTO 11010 
11080 VTAB 20: POKE 36,0: CALL CL 
11050 RETURN 
119$? REM 

ll9$8 REM Exam«n du PICO tpS9 Utili## psr pra^r-immnj 

11999 REM 

12000 I - DM 

12006 it i - Z THEN END 

12007 PRINT 1/ ■ »> 

j5ojo if pr£/r n> < J2 rwEw pjf/wr / peek (i}>t 

:1 - J * V; GOTO 1201 Q 
12020 PRINT ■ "| P££ft (I * Uf * 256 i PEEK (I f 

"/.'AO - Ir GOSUB 51800:1 - PECK (AD) ' 256 f p££tf 

rAZ» * tf/s pftiNr core 1200s 

14997 ftlM 

14999 REM Alflchage Pile EctAr. 

14999 REM 

15000 IF PM% - 2 THEN RETURN 

15010 FOR I - 1 TO PHI: VTAB 2; PRINT i VTAB 15 - It POKE 

if, CO J Fflltfr RIGHTS t* " t STP$ (PM* ( 1 ) i * £) 

15020 NEXT : RETURN 
151^9 REM Pill «tur« tf 

1 5200 IF Pttl < I I THEN PMk ' Ptfi + 1 ; RETURN 

15201 ER - 21; RETURN 

15209 REM ¥ *-t-ll assez d'ulementa sur la plli ?? 
15? 10 IF PWI < PC THEN ER - J 
15211 RETURN 

15219 REM Pile da ret cur sJturce ?? 

15220 IF PR% < Z3S rtfEfl Pfll - PR! + J ; RETURN 

15221 ER * 21: RETURN 

15297 REM 

15298 REM IriitiaUntivn 4#* Piiw 
lii'SS ffOT 

1JJ00 FW* - 2.-m - 2:H0$ - **i MPW: RETURN 

15397 REM 

15359 REN fcit .ii rn.nul t*t crntre NN et NX 

15399 RZtf 

15400 IF TP < NN OR TP > NX THEN ER - 3 

1 5401 RETURN 
1569? REM 

I WW HFJ-i Ktf am PI ifi AVAA'T 
15B99 REM 

15900 POKE 33,7; POKE 32,4; POKE 34,3; POKE 35,14: NOME : 
TEXT ; HP.TOUN 

15919 REM EJfm Pii# APRES 

15920 POKE 33,7; POKE 32,42: POKE 34, 3 : POKE 33 r l1; HUNK 
; TEXT : RETURN 

1 599? REM 

1 5 998 REM *"* DDK 

15999 REM 

16000 GOSUh 1560C: GOSUB 15920i GOSUB tOOObl OQ5VB 15300: 
QOSUB 13€0 

16005 VTAB 2; PRINT J VTAB 23: PRINT *JTUMrO tf* DEMO (XXi 
; CALL CW; GET X5:X - ASC tX$) - 48; IF X < 

OR X > 9 THEN PRINT BIPS/: GOTO 16005 
16010 N£ - Xi PRINT Xfjs GET X9i IF XS • CURS (13) THEN 1 

5G25 

16015 X ■ ASC tXSi - 4$: IF X < OR X > 9 THEN PRINT BI 

PS;; CQjO 160C5 
16020 NE ■ NE * 10 * X: PRINT XS;: GET XS: IF XS < > CNR 

$ (13) THEN PRINT BlPS/i GOTO 1600b 
16025 VTAB 2l PRINT l PRINT D$ "OPENPEMQAPF, L160*; VTAB 2; 

PRINT i PRINT DS w REAPDEMOAPF, R"NEl T,S - w " 
U040 GET X$: IF Xi CHRS (131 THEN i$Q5Q 
16045 ES - E$ * XS: GOTO 1604C 

VTAH J J ; PRINT : PRINT 0$*CLOt&*t W ES ' *PIN" OR E 

S - -5$$$S$$$S$$$$$$$$$$$S$$$$$S$S$$$$$$$$$S$$$$$S$$ 

$$$SSSSS$$$$SSSSSSSSSS$SSt$S£SSSSSSS$SSSStSSSSSfS$SS 
$$S$$$$S m THEN ER - 36: RETURN 
liG€0 NC - LEN (ES} 

1(070 IF MIPS (E$,NC f l? - ■ ■ THEN NC - NC - if GOTO 160 

n. 

16C60 ES - HW$ !E$,l r NC) * CURS (U) :NC - LBN (E$) 
16030 VTAB 2: PRINT r VTAB 19: CALU CW; PRINT PMS : PRINT 

J?y^/ REM 

1 9993 REM COMPILATION **** 

19999 REM 

2C0C0 GOSUB 159O0: GOSUB 1S92G;CQ - 4: GOSUB liOOO: "OSUB 
20900:CP - VR:PR - 3:FC - I 



20010 IF MC ■ 255 THEN ER - RETURN 

20020 GOSUB 3200D: GOSUB 32090: It HQS - CfiRS (13) THEN 

ER - 19: RETURN 
20030 IE ER < > 2 THEN RETURN 

20040 GOSUB 3220D; IF NU * > Z THEN ER - 20: RETURN 
20045 Al - FO 

20050 IF Al f LM * J > MX THEN ER - 4: RETURN 

200S0 FOR I ■> I TO LM - 1: POKE Al « J, ASC t MID$ {MO$, I 

* U f U)) : NEXT 
20090 POKE Al » LM,32xAl - Al + IM + U: POKE Al.Z 
20080 Al m Al + U: POKE Al,MCiAl - Al t Ur POKE Al,4iAl - 
Al f D 

2O100 GOSUB 32000: GOSUB 32090; GOSUB 32200: IF NO ■ I TU 

EN GOSUB 32100 
20105 fF MOS - CNRS (13) THEN ER ■ 19: RETURN 
20} 06 :F NO ' I THEN ER - 13; RETURN 
20110 IF ER < > Z OR NOT CP THEN 20310 
20112 IF NU " 49 OR NU - 50 THEN ER - S: GOTO 20300 
20120 IF NU - 23 THEN ER - 23: GOTO 20300 

20130 IF NU > 3B AND NV < 51 ANP NU < > 47 THSN £fl - 5; 
COTO 203QO 

20140 NU - 23 THEN GOSUB 32000: IF MOS - CHR$ (13} O 

R HIPS (HO$ f LN,l} <r > CHRS 134) THEN Eft - 31: GOT 
O £0300 

20150 IF NU < > 23 THEN 201 SO 

20151 IF Al * 3 * LH - U > MK THEN ER - 4 i GOTO 20300 

20152 POKE Al f 126:Al - Al t 'J; PQKC Al,23;Al - AJ + U; fo 
KE AljLM ~ U: FOR I - U TO LM - U: FOKti Al + 1/ A$C 

f HID$ tMGS f l,Uli: NEXT :A1 - Ai + LM: GOTO 20210 

20160 IF NU < > 99 THEN 20170 

20161 IF Al * J > MX THEN ER - *r GOTO 20300 

20162 POKE Al,12t:Al - Al + U:TP% - W: POKE A2, INT (TP* 
/ 256J ;Al - Al + Uz POKE Al, FN RQ(TP%) :A1 - Al t V 

; GOTO 20210 
20170 IF NU - 29 THEN OP ■» FX: GOTO 20300 
20180 IF NU > 29 ANP NV i 39 THF-N GOSUB 21000: IF ER < 

> I THEN 30300 
20190 IE Al * 2 > MX THEN ER - 4; GOTO 20300 
20200 POKE Al f 128;A1 - Al f J; POKE A1,NU:A1 « Al i U 

20210 GOSUB 32000; GOSUB 32090; GOSUB 32200: IF NU < * Z 
THEN 20300 

20211 GOSUB 32100: IF NU < > Z THEN 2Q3QQ 

20212 IF MOS CNRS (13} THEN ER - 19; GOTO 20300 

20213 ER ' 1$ 
20300 GOTO 20110 

20310 IF ER < > Z OR CP THEN RETURN 

20315 IF FC - 11 THEN ER - 25: RETURN 

20316 IF FC - 33 OR FC - 35 THEN ER » 7: RETURN 

20317 IF FC - )6 THEN ER - 14: RETURN 

20318 IF FC - 37 THEN ER - 13 

20319 IF ER < > 2 THEN RETURN 

20320 IF Al * 3 > MX THEN ER * 4; RETURN 

20330 POKE Al,255zAl - Al * 'J: POKE Al, INT (DM / 25&1 :A1 

- Al 4 U: POKE Alt F - v RQtOW'.Al * Al + U:PM -• Kfl 
20340 FD - Al:HC * MC + V: GOSUB 51000 

20345 MOS - «"i GOSUB 32090: WA8 2: PRINT : VTAB 24; POKE 

2035O RETURN 
20399 REN 

20900 VTAB 2: PRINT : VTAB 24: POKE 3$, I; PRINT "ConpUat 
Ion en court Soyne p*tivntn. "/ ; RETURN 

20997 FEN 

20998 REM * - * * An&lysfi SYNTAX I QUE cfc* structure* tro 
ntralc 

20939 RFM 

21000 IF FC • t THEN GOSUB 21050: RETURN 
21010 GOSUB 211O0: RETURN 

21050 IF NU • 31 OR NU - 33 OR NU - 36 THEN FC = NU; RETU 
RN 

21055 IF NU - 30 THEN ER - 24: RETURN 
21060 IF NU - 32 THEN ER » 11: RETURN 
21065 IF NU - 34 THEN ER = $: RETURN 
21070 IF NU - 35 THEN ER «r 5; RETURN 
21075 IF NU - 37 THEN ER » 12; RETURN 
21030 ER - 25: RETURN 

21100 IF FC m 31 THEN GOSUB 21150: RETURN 
211D1 GOSUB 2120'): RETURN 

■21150 IF NU - 31 OF (NU > 32 AND NV < 39) THEN ER - 2tt R 
ETURN 

21151 IF NU - 32 THEN FC - X 

21 1 52 RETURN 

tr NU ■ 30 THEN ER - 24: RETURN 
21205 IF FC - 33 THEN GOSUB 21250; RETURN 
21210 GOSUB 21300: RETURN 

21250 IF NV - 34 THEN FC - Z: RETURN 

21251 IF NV - 35 THEN FC - 35: RETURN 
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21252 


ER ■ 26: RETURN 




REH 


21JUU 


J f it " J _> THEN GO SUB 21 J i u : RETURN 


J J J 3# 


REM Rscticrctie du .lu^nero d * un .vat dans le dlca 


1 T J/1 T 

213(11 


GOSUB 21400: RETURN 


321 39 


REM 


f j.'.rj 


IF NU ' 34 THEN FC ■ Z: RETURN 


■.:>y o 


NU - Z; FOR I - U TO NN 


21352 


CP ■ Jfi RETURN 


32201 


Ir T5(I) * HQS THEN NU m 1:1 ■ iVM 


21400 


IF FC • 36 THEN GOSUB 21450: RETURN 


32202 


tfEKT : IF NU ^ > Z THEN RETURN 


214G1 


GOTO 21 SCO 


32203 


IF MC * 4 C J THEN RFTURN 


32450 


IF iW * J7 TfffiW FC w 372 RETURN 


31209 


AO ' OH 


21451 


ER - 14; RETURN 


32210 


IF A£> < AY OR NU < > 1 THEN 32245 


21500 


IF FC < > 37 THEN Kft ■ 1$: RETURN 


32212 


TP m Z 




IF NU - 38 THEN FC *» Z: RETURN 


J -I -j ■ s 

3221 3 


IF PEEK IAD *■ TP) < > 32 THEN TP - TP + t/r GOTO 3 


^ 13 J u 


BR m 26: RETURN 




2213 


J05S7 


REM 


3221 4 


JF TP < > LM THEN AD - AD * TP: GOSUB 51800: AD " 


30 9S9 


J.iV J Kri/. □ une _ ] jrno de 159 ca rjfr: *r rts 




r.'u': ■ irlb + PfcLft fA£J * C/J ; . ■ 322 1 U 




REN 


1 1 ■* 1 1 
322a 5 


FG - VR 




VTAB 2: PRINT : VTAB 1 ?: POKE 36, Qj CAUL CW: PRINT 


32220 


FOR I - Z TO IJi - U 




PM$:NC * OiES - mm :X ■ FflE fOJ ;X ■ Z:MD8 * **> t7DS£; 


32225 


IF PEEK /AD 1} ^ > ASC f i'flDi fW05, J * T 




fl 32696 




HEN FG * • LM 




Jf NOT* WC * > 1,5* AMD X < > 13} THEN 31050 


J22 JO 


NEXT 


jjo is 


VTAB 2i PRINT i VTAB 20 * INT tNC / 80) .- POKE 36, N 




IF FG THEN Nil - PF.F.K i'A *■ TP + 2) : GOTO 32210 




C - INT |NC / BO) • 60 


32236 


AD m AD + TP; GOSUB 51 BOO: AD ■ PEEK (AD) * 256 f P 




GOSUB 300; IF X < 123 AND X > $6 THEN X - X - 32:X5 




EEK (AD * U) 7 GOTO 3221 




■ CKR3 (X) 


3224$ 


IF AD * i AND NU * Z THEN IF MO$ ■ * + # THEN NU ■ U 


JIU2y 


IF X ■ THEN TEXT : HOME : COT"0 31000 


iJ25u 




J J OJO 


JF X " 8 THEN COSUti .3 1 950 


3999 7 


REN 


J J JO 


- . * J — - , J ...... F , - , - 1 1 If , ■ , ■ 

IF X € > 9 THEN COSuli JJ 900 


39996 


HtW Go st 1 on aes ilRREURS 


31041 


GOTO 31010 


39999 


REM 


31050 


IF X < ? 13 THEN ER = 16; COSUB 10000: GOTO 31000 


400C0 


ER * PEEK (222) i IF ER ^ AND ER * 1 6 THEN ER ■ 34 


31060 


NC * NC - liES - MIDf fESsl,NCj: Jf RIGHTS (S$,ll 




; GOSUB lOGflQi RESUME 




■ M TV/EN JJGffD 


40060 


PRINT W ERREUR NON TRAITEE N{ "ER m EN " PEEK (21$) * 


.31061 


^/C • NC + 1 :E9 - ES * CHRS (13) 1 RETURN 




256 * PEEK (21 9/: END 


31B97 




50004 


jl luj « r r n _j rm , ■_ 

«/-Jf E.tAce t.crmn du t orth 


31 898 


np«i 1 —n-i— - mm 

REn on n .1 pes tape CTRL.-H 


50005 


FOR I - U TO 5 : &7? f i / - . NEXT i Ev - UlEL Ui GO 


31B99 


REM 




St/S 50055: RETURN 


31 900 


IF NOT fNC - AND 'X - 32 OR -X • 13} J THEN 31910 




REM AiCkQnc t-CRAN oj tajrcti 


31906 


PRINT BIP9f: IF X m 13 THEN X ■ 


'■■•'<■' '• '■ 


TEXT : FOKE 33,16: PQKE 12,18: PONE 34,4: POKE J5,0 


31907 


1 11 -rrii 1 rjii 




9: nOrafc ; /ArVi : tQR s - u TP -5; /iah 4 + /; PCKt js 


31910 


IF X < 32 AND X * > 13 THEN PRINT BIP5;: RET'JRN 




f .'fl; PRINT FCS(!f;; NEXT ; RETURN 


31 911 


NC » NC f ■ ES + Xf; IF X < > 23 THZN PRINT X 


50897 


REN 




9/ 


••UN f )h' 


REM Affict}*Q* Fin du OJCO 


■ ' -i i'iJ 


RETURN 


50899 


API 


31947 


REM 


51000 


GOSUB 51900;AD * DM 


11 948 


Hl-M oil . j t*p# CTRI.'H 


51010 


FOR 1 ^ 1 TO 5 


31949 


REM 


51020 


IF PEEK (AD1 - 32 THF-N 51 040 


31950 


IF NC m THEN PRINT flJP-S/ : RErURn 


51020 


PRINT CWHS f PELK (ADftfiAD ■ JL? ? Ir GQTO 31020 


31966 


wC - NC ■ I;£S - nIDS (EJ, 1,NC) f GOSUB 31970 


51040 


■ p ■ c III II T 1 kl f 1 ft P ii 

IF J ■ 5 THEn 51050 


1 ; 11 yf\ 




51045 


PRiNl ; GOSUB slSUOiAD " PEEK (ADt * ^36 f PLts f 


31 96/ 






AD * I> 


31968 


REM Racul 


51050 


//EJfT | r£yT7 ; RETURN 


31969 


REM 


51 797 


REM 


21970 


VTAB ?! FN INT ; VT^IH Jfi ^ JWT ^//C7 / flflj ,■ £G#£ Jff, W 


51798 


REM Ctlcul l'QFFSET DQVt trauvar 1 'adrasaa suivant 




C - AO ■ JT^T fWC / fiflj : PRJNT ■ * i CMM ffl. / : JlTr 




« 






51 7$9 


h EM 


31 99 i 




■ IflCC 


rp n r>PV j ip , T i - 1/1/1 ipLf _i ) i /JL"JV JUKI 

JF PEEK (AD * 21 c iOO THLN AD " AtJ + JT KJSrUKiV 


■J J Mis 


Htw tiGcntircntt d'u/i mac e*nj J.^ENIREL 


51805 


JF PECK (AD t 31 ■ 1 OK PhhK (AD f 3} m 2 lne.N AD 


1 1 \'l r'j i J 






"AD * 7: RETURN 


"J /l /I jH 

32000 




$1810 


IF PEEK (AD +31 x J TNEN AD ■ A£J f PEEK (AD t flj 


3201 


It MILS (kSfPRsJ) a ■ ■ THEN Pit M PR + 11 GOTO 320 




+ <.* RETURN 




11/ 




OS ■ ^ 


■■■ J'J u 


rr* w/ri3 /vi du t t a ■ * no ums tvs 00 11 » runs 


51820 






f J J/ JJM.IT UJ _■ 


1 (CJ-JI 










r/ZCV OS * QS + 3 + PEEK (AD + 08 + 2) ; GOTO 5182 




(rvi V W V V 











51B20 


IF PEEK (AD * OS) - 319 THEN OS » OS * 3i GOTO SIS 


32060 


IF (E$ t FR f 1 ) < > CHR$ f 1 3) THEN RETURN 




SO 


32065 


IF LM - C iWOS « fl3) :PR ■ # J 


SIB 3b 


05 ' OS + 2i COTO 51820 


320 70 




51860 AD b AD t OS 4 If RETURN 


32087 


REM 




HEM 


32068 


REM Affich* 1* 




REM Efface eenn t in dil DICO 


32089 


REM 




REM 


i20 W 


IF HOTS - CHRS (13) THEN RETURN 




TEXT ; POKE 33,16: POKE 32, Si: POKE 34,12; POKE 35, 




VTAB ?: PRINT ; VTAB 1<: POKE 36,17: PRINT LEtT& t 




17; HOME : RETURN 




MCS * ■ *4 1 6) 


55935 


REM 


32095 


RETURN 


5eODi3 


REM INITIALISATION 


H'ii 


RFJ4 


56002 


H TNEN: 34304: REM $8600 


•:.■'{> 9 h 


REf^t MCS eat-11 un ncmbre ?? 


S60C3 


Z - Q:V ■ 1:ER - Z:I - Z;J - ZiTP - ztVR - U:FX - Z: 


320 99 


REM 




OS - CHRS (4)iCL " - 869:CN - - ?S9;Jf* - - Jf 


321 00 


ER " Z: FCR I - U TG LEN tNO$) 




:W - rX;Wt - U;Wt/ ■ ^/PMI - ZrPfll - B.*£$ - 


32110 


X - ASC ( NID$ tMQ$, 1,0) ) : IF (X < > 43 AND X < > 


56004 


FD - f+iM - ZiHOS - ***MC - Z:LH * Z:VW - 3:Fff ■ ?;«V 




4b AND fX * 48 OR X * 57)) OR tX ■ 43 AND I < > U} 




JT - 32767 :NN * - iV-T.-SU - W.-/fS^ - *":VT$ ' *":N$ * 




OR tX m 4S AND I < > U) THEN ER ■ 18 1 1 ■ LEN {HQS 




««iADS ■ *»:AD - Z.-WS - »*« - 9 * «5S P 6 * 55ff;Z) 




; 




M - Z:PD - E 


\2120 


NEXT i IF ER t J 3 THEN RETURN 




DO - 6 ' *0P£ * £ * 55fi A IiJK - lQliTPi - Z.-PMS - " 


32130 


VN - VAL tMOSl iNV - 99: IF VN < NN OR VN > NX THEN 




Pi9t*:NE ■ - Z:CP - Wi.»FC - - Z:PT - £:F0 » 




ER * J 




Z:ID - £:£C - y;£'L •» U.'CO ■ f 


32140 




56QC6 II - - - - i:XJ » J.-*** - JTlffP - ^-^fitf 



V 
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£jj - ^";TI$ n "L 'APPRENTI FORTH l*r" :BIP$ - £HR$ t7i 
5€010 NM « 50j flWtf PWt f 11 ) , PR {255}, EC$ f JJ , Z*£ fJVM,) 
5*013 DEF FN RQtXt = X - I NT (X / 256) * Z'jt 
56016 DEF FN VP(X) - PEEK (107) * PEEK (10$) ' 256 * 7 

+ 2 ' x 

56020 OHERR GOTO 40000 
56030 RETURN 
56999 REM 

REM ECRAN tf'AXBfi 
570OJ P0*f 

5 7305 GDSUB 57700: '/TAB It POXE J£,4fl: PRINT ■«.„*#J JWV 

.- PRINT "E<rr*rt d'AJOE * J'lftJiiflfltaur".- NORMAL 
<?0J0 VTA & 3: POKE Ji", 0; PfllA/r "DEMO *cc« * uo f 

ishi*r da dttmanst rat ton (dolt ctre en tffofcuft da ligna) 

■ 

57020 Pfl/yr "INIT nlftltlliln i« FOflTfl fdait otr 

e en debut dfi Ll^ne) * 
57DJA PAINT "tlSrEtfSTS list* iff djctiannalr* a 1 r edran 

570£0 PAINT "MODE <?pjnmut« mode NORMAL et tfrodc FAS 
A FAS* 

> 7(170 PRINT "QUI TTK arret du predTamflW* 

57090 PAINT "A JDJS ttficho net ecran" 

57095 PBLVr "RAZ initialise loa plloa" 

57090 PltlHT "CARRAY cahlmau d'ocCets t25 CARRAY XZ 
afoftflp tableau >?Z de Pff attet.*;" 

f7I0ff PRINT m Ca at CI pour UfiiliWF -Ioj elc/nojiCji d'ufl 

57|/ff PKINT 11 n'y a p« ds hauelo LOOP, don 

tz twj&vr* prcnlaer i« paS* 

57120 PRINT "Nombtva •/lti«.rj da -32767 J J27tf7» 
57130 PRINT "Aucrtfa AW* <£2* *ont claajlqUBa du POPTtf 

57240 PRINT X PAINT "Longueur d'llM phc*** I limJtee a 25 
S cflrflilcreff. " 

57245 PRINT "HOTS CREE5 llmitaa a 26 caraGCeteS pour la n 

am (154 mot* m#^r^" 

57250 PRINT *h 'APPKENT? FORTHler n'admet pa& leg #tructur 

i.uf do cpneraja Imbrlg-uooa* " 
J 71 51 PRINT ■ Att^Jntlo/] aux mata 'a' 'C^' focrieura d 

Ana ifl meniDireJ " 
571 S2 PRINT * ha recherche dea «rr«u» psend du tcupa.,. 

So/be PATIEAFTJ" 
57155 PfilWr " /Vo jam#ifl Opar Cm-C" 
5 7150 WAlf 24: JS^JJj GGSUB 1300 

57180 RETURN 
y/199 WW 

57^00 «EM EeXvfl do travail 
57201 REM 

57205 GOSUd 57700; INVERSE : FOR I - 4 T& 14; VTAB It PQK 
r. 26, 1: PRINT m "f i FQKfr 36,11: PRINT ' ; 3 
6*39; PRINT ■ fO^fl 3^49; PJlJWr " "/i /tf£^r 

5 7^10 VTAfl 15i POrf:: 26,1: PRINT " */; POKE Jfi, 

PRINT « V: VTAfl J ^ : POffi Jtf.J: PRINT 

"Ptl.y. AVAN't'"; : i-OKF '-h t 4(ii PRINT "PILE APRES' 

57215 VTAB 4." POKE 36 e 16t PRINT * E C R A N V 

TAB 10; PGKE 36, 16; PRINT p * 

57220 FOR I - 5 TO Si VTVlfl J J POtfE PRINT 9 H ti PQ 

KE 26 r 34; PRINT " : NEXT* 

57^25 NORMAL S VI AB 12z POKE 34,16; PR2N? "MOT en COURS 1 
*J WAS 4; POKE 36,34: P^J/Jir VTAB tli POKE 

3G r 53: PRINT "FIN du DlCTWNNAIRE" 
57299 RETURN 
5 /fi 5 v REM 

57702 REM 

51105 NOME : PRINT TAEf 3Q),'Tl$: RETURN 
51199 REM 



Fichier 'DEMOAPF' 

cree par te programme CREDEMO 

Phrase 1 : 

123 58 4 78 SWAP DUP * AM? J 
Phrase 2 ; 

CL£ , " FORTH 1 * 42 '/& - 555 * 4 * 
FAraffe 3 t 

AIDE [,ISTEMOTS 12 45 78 96 * + DUP DROP 5Mf 45 OVER 7fl ROT 
Phfrt*rt 4 : 

f BOOM CR ESSAI f " HODfT* 
Phiraje! J i 

| KALJDE Af£TF BEGIN 13 WWifl tEr fl£P£AT ,« AT™ 



Phraie 6 i 

: ESSAI . - OK' VALID* f?R . " FIN" I 

Phraaa 7 | 

VARIABLE tfre 

Phraae 8 : 

^4 CONSTANT QST 

Phraae 9 t 

I ENTR KEY DUP BEGIN 32 - WWILE KUr U0P REPEAT EMIT t 



Programme VREMESS' 

J jtyft #.*«.. -H rM"".M 

? J?£M Prdtfrartlffifl CP£HET££ 

J JfEM CreaClM d*S Ht0JI?l4 d'EflftlTy/? 

4 J?£W pour PcO<jrajBjn« APF 

5 REM Le flehier cr*# Mt W^iSJPP 
f C'Mt Ufl fichier direct 

9 REM Fmj Niwuerijsky 

JO HFM ********** ******** M ■ *** 
99 iPJ - CNRS (4): PRINT £>J*Pfi#J" 

J 00 TEXT : HOME ; PRINT 'CREATION d*t mmsaagea d'errour d 
U pj^tfrjmme APP*.- PPiJ/T "Le fiohitr jK'appello MESSAPF* 

n 

105 PRINT f PPJNT "Tipflif <?C> POUT er?itr un message CV> 

paux- VOIP Urt flt«J**fffl <T*> pour Tuittar "/ : GET X$ 
1Q6 PRINT XSiX - ASC W*J : IF X - 39 THEN END 
107 IF X - 67 OR X * 99 THEN GOSUB IlOi GOTO 100 
10B IF X - 36 OR X - 7Jfl TUffiN GOSUB 5000? COTO 200 

20J iOTO 2A5 

120 HOME: ; PftlWr "J/lfyirJCW dotf N4sa*9+* (36 Caractarea ma 
xi*) f*> Pour Qiiittar'; PRINT ; INPUT "tfmnorO n fNV$: 
NO - JffT f VAL tNUS)} : IF NU < 1 OR NV > 99 THF,N 3 JO 
120 X * ASC iXf); IF X - ASC ft*) TfiHN SNO 
150 M$ * PRINT 'Votre Maaatge (<t>~Quitt€) I "f 

152 CET Xf;X - ASC TJtSj ; It X 3 13 AND LEN (HS> - TNG 
N 152 

153 IF X - 8 AND LEN (tt$) < > THEN GOSU3 1000: GOTO 
152 

154 IF X - 13 THEN 160 

153 IF X - ASC ft") THEN N *■ N - li RETURN 

156 IF X * 32 OR X > 125 THEN 152 

157 PRINT XSfiNS * N$ + X$t IF LEN (MS) > 36 THEN 1NVER 
SE : PRINT "Trap long": NORMAL i PRINT : GOTO 150 

158 GOTO 152 

160 PRINT ; PK1WT DS'OPEN HESSAPF, &3?**r PRINT DVHRITE ME 
$$APFtR*NU 

170 PRINT CRRS (34) * WJ + CURS (24); PRINT DS"CLOSE H 
J 40 RETURN 

1000 REN On * t«p« <~ (CTRL-U) 

101 C N$ - NIP$ (N$, 1, LE» (MS) - 1ft FRINT i VTAB PEEK ( 
37); PAKE 3£,2S * LEN {H$l : CALL ~ $£B; RETURN 

2000 HOME ; PRINT "VOIR urt m*)*#a v #^: PRINT : INPUT "Numer 
a : "fNUBlNU - iNf i VAl ?NUS)); IF NU < 1 OR NU > 9 
9 THEN 2000 

2010 PRINT D$*0PVN MP.SSAPF, L39- : PRINT D$ "READ HESSAPF, R" 

NUi INPUT MS: PRINT D$"CL0S£* 
2020 PRINT : PRINT MS: PRINT ; PRINT "Taper OfM Touch* 

i GET XS: PRINT X$; REtURN 
3000 P£« List* IMPRIMEE dea MESSAGES 

3010 NOME : PRINT "ASSURE?. -VQUS QUE L'IMPRIMANTE L$T &RAN 
CNEE Itll!"! PRINT z PRINT "VOVS ALLE2 LISTER SUR L*I 
Hl'KlMASTh LUX Ht:,WJAt^ p 

3020 GOSVB 3500 

3030 NM - 35iDS - CHR5 (4): PRiNT D5"Pft#J ": PRINT "Llate 
dea Meaadges d'Err*ur du pra$r*mme L 'APPRENTI FORTH 1* 
r"; PRINT : PRINT J PRINT 

3035 PRINT Df "OPEN MESSAPtjLS?" 

3040 FOR I - 1 TO 35; PRINT D$"READ MESSAPF, R m I : INPUT NS 

; PRINT RIGHTS f " " + STR$ {11,21;" M ?MS; NEXT 
3Q5Q PRINT DS"CL0SE"z PRINT D$"PRiQ*: END 
3500 REM ABANDON ? 

3510 PRINT : FRINT "PQVR ABANPONNER TAPER 'A' SINCN WETU 

RN> CET XS; IF X$ - OR XS - "A" THEN END 

3520 IF X$ < > CHR$ (13) THEN 3510 
yj it) PRINT XJ: RETURN 

$000 REM CrtaCion du Fichter HESSAPF la lete fola 

SOOJ HOME ; PRINT 'CREATION du FICHIER MES5APF la ler* £a 

la*: C0SUB 3500 
SQ10 &S - CHRS (4):M$ ' "i FOR I - 1 TO 3B;M$ a MS + 

; NEXT : PRINT DS"0PEN HESSAPF, L39 n 
5020 FOR I - 1 TO 50: PPW oS-VHITt: HESSAPF, R"I: PRINT M 

Sz NEXT 
5030 PRINT WCLQSB* 
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Programme 'GARDEAPF' 



* . * . . . 



Hfr?4 ********************** i*m*t 

REM * Psg9 dtf Gardl rfti p^tigranurtc A?F W.O * 

rtEW ' rtgpi Jo c* p^fiOirAjnmc f GAA0£.AFf* 

REM * * 

* Fuj Hijrotirgsky fcj 1985 CHANCELADE £4650 
************************..**********************.** 

GOtfUfl 1QQQ; f?Eff impia/iLe 2 'AMPERSAND *ft£T 
VTAE 2; Pfljtff 

VMfl J; PQtfE J£, J J; PtfW "PROGRAMME D 'ACQUISITION DES 
CoNCf-ZPTS DV LANGAGE FORTH" 
INVERSE 

VTAB 3; KKE jtf, 2 5; Pflltfr L*A?PRENTI FO 

RTHier. T * 

VTAfl 5; POK/f 3$, 15: PRINT "f*J foj tfljaua-yj*/ 24£5C 

V5M1 fj Pfflffi J*, 9; PRINT "C9 ioffitfifii porftoC de ai/rmle 
r tlft FORTH. II n'cn a pas 1* vit939* m 

VTAS 10; POKE 3f, 6: PRINT "mala 11 rpjiiporrs da flombffft* 
x mtjasayas d'#pf*ue trua «pi ici t ea " 

VTAB 2J_< POJf£ Jtf,*; PRINT J 'tftliiaaCeur pent 'irair 

' J 'effet de cJj#cun ^mocs* FORTH ailt la" 

VTAB 14: POKE 36, 6 i PRINT "pll*, i '«cha *u 2* ditel&n 
flfliraffflode PAS A PASJ . La marftt NQfWAh n# Jtia/rCrD" 

™e 1£: POKE 36,6: PRINT 'p*a iea ftt*t* iatimsdiiii 1 

«■* d# 1* pll*. " 

VMfl 20: POKE 3&,6i PRINT "II cat paaalbl* <f'utiif«r 
t CDJf]Jt*l7tfl-V, V&rlAbliSjt, tableaux. #E" 

VTAfl 2Cj PQKP 36, ff_. PflJWT "d* er#*r d** intfra nouitoaiij" 
. DEMO donna accea J un Fichier d# d+motttt raZ ion . " 

ITAB Pi; P0#f£ J£ F £: fPJWT a'*ffifc d'un propi-j/run* d 

'flpprantlsjapB,, iJ n'ajt p*# rapids..." 
V7KB POKE 36,6: PRINT *paur eentlftUir C*per un* E 

ouch# »f| 4 Ml' 

WVW J: PJ!JJVT r PJflwr C^HS (4} "RUN APF 52-4 ,Dl* 
KND 
1000 Q*4$ 

1010 FOR I - Q T$ Q - 1: READ Z*i POKE 769 + J^i; (Vff?f7 
J 020 POKE 1014 f l: POKE J 0} 5 f .3 
2 3 RETURN 



9 

7^ 



2 00 



220 



1JC 



I JO 



140 



£C0 
99? 



J^flfl DATA 44 1 0, 192.16,251,173,0,192,44,16,192,41,121. 141, 

C, 3, 201, 32, 1 44, J 4, 1 65, J 84, 24, 1 OS, 3 
1210 DATA 1 33, 1 04, 165,185,1 05, 0, 1 3 3, J $5, J02 r 1 3, 240, 238 

,2111,8,240,2^4, ?t,l,3 



Fichier 'MESSAPF 

cr44 par l& programme 'OR EM ESS' 

9 Ci vision par zero. 

< fJu* tfo placo on n£MQrRf-: T 

5 Mat IfiMfDrAT. 

€ Mot Intardlt an Jiwidn Immidfa ; ^ 

fl XMOV -,.rn.-. rp. 

S ELSE amna IP. 

tC DO +LGOP. 

11 *LOOP sana QQ. 

IS WHILE sana BEGIN, 

13 teMILE; ajns REPEAT. 

14 BEGIN sana WHILE. 

15 Repeat urns tfHll£. 

16 ENTREE t™ L0NGUE (>159 caractj, 
1? MOT Crop LONG t>W . 

13 MOT lNCONtri} T 
1$ : Hit* f 

20 HOT flSfl U/flquo- 

21 Ptl* SAWk££ t 

22 Dlclionnalra PHGTEGE r 

23 Rmpitltion do »i 1 

24 1 hora d'uno houclft. 

25 REPEAT tans BEGIN. 

26 St rues Lf/tf* c.'* contra J c imti.-.i(r.i*0s. 
2? i sans 

28 L*f mt doit atn 9n DEBtM rf* llQfi*. 

2S U AttfiflfU* NOH. 

$0 S&IHntt da pi Jo INVALIDS T 

31 11 manque un ' \ 

Jlvr^ H/hJLda {TablvauxJ . 

^4 &rr«ur aur 2JIS{?l/e_ 

35 Afifienco di £Xf£'. 





Le Pacha 




e //e, //e+, //c 



Listez vos programmes Basic en avant et en arriere. 
Modifiez, inserez, effacez des caracteres en plein 6cran sans 

relire les lignes, 
Recherchez toute chaine de caracteres. 
Choisissez vous-meme les codes de controle d'EPE. 
Modifiez EPE : le fichier source est sur la disquette. 

DOS, ProDOS, 40, 80 cohnnes 
200,00 F TTC franco (bon de commande page 74). 
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La premiere partie de cet article 
proposait un programme sous 
forme de commands CP/M 
permettant de configurer la carte 
Super S£rie d'Apple. Apres 
configuration, des fichiers 
pouvaicnt Stre transforms d'un 
ordinateur & 1 'autre par la 
commande CP/M PIP. Une 
* transmission plus gvolaee, tel est 
l'objet de ce deuxiimc volet. 

XMODEM 

(protocole de Ward Christensen) 

Le protocole XMODEM a it£ 
choisi car il est tr£s courant, et 
c'est le plus simple des 
protocoles "hautes perfor- 
mances". 11 est en effet beaucoup 
plus puissant que les protocoles 
type D1/D3 ou ENQ/ACK, et 
reste relativement simple i 
implanter compart h. des 
"taiamtrea" com me KERMIT. 

Dans un protocole logiciel, la 
gestion de la transmission 
(appelee aussi Controle de flux) 
n*est plus assures par les signaux 
de la RlS232 mais par des codes 
echanges entre emetteur et 
recepteur, De ceci decoulent 
plusieurs avantages : 

■ la liaison tflectrique est plus 
simple. En local, un cSble pour 
XMODEM se ram£ne 3 trois fils 
settlement : Masse, TXD, RXD. 
(TXD et RXD <5tant bien sur 
croises) ; 

• le dialogue entre 1c programme 
Emetteur et le programme 
recepteur aut arise une 
automatisation complete de la 
transmission, II y a envoi d'un 
bloc de donnees, controls par le 
recepteur, et envoi d'un accuse de 
reception ou au contraire d'une 
demande de renvoi en cas 
d'erreur. En cas de non re pou se 



(coupure de Ugne momentanee, 
ou perte du code retour), il y a 
Emission autotnatique du bloc, 
Enfin, les programmes emetteur 
et recepteur se d^connectent au 
bout d'un temps maximum, ou 
d'un nombre donn£ de renvois 
sans sucefcs. On peut done lancer 
le transfer! d'un gros fichier et 
vaquer h ses occupations en toute 
sergnite", le programme ne 
"planters" pas. En cas d'avarie, le 
recepteur est assure d'avoir un 
fichier peut 6tre partie!, mats 
valide et ferme correctement. 

XMODEM transmet sur 8 bits, ce 
qui autorise des echanges de 
fichiers ASCII ou binaires, et 
avec somme de controle, ce qui 
assure une bonne fiabilit£ de la 
transmission, 

Enfin, la mise en route de 
XMODEM emetteur et 
XMODEM recepteur est contrSlee 
par les programmes, qui doivent 
se rencontrer dans un ddlai d'une 
minute maximum, Ceci permet 
des transferts telephonies avec 
un equipement rustique, un 
simple Modem manuel est 
suffisant. Les correspondants 
peuvent s'appeler, se mettre 
d'accord, puis chacun lance son 
programmme de transmission et 
commute son Modem sur la 
ligne. Tous les signaux parasites, 
raccrochement de combines et 
autres sont sans importance. 

Le protocole 

Le format de la transmission est 8 
bits de donnees, I bit d'arr&t, pas 
de pa rite, Vitesse quelconque, Les 
dorm£cs entre Emetteur et 
recepteur sont transmises sous 
forme de blocs de 132 octets, le 
format des Blocs etant le suivant : 
• un octet d'en-tSte, SOH 
(ASCII 1); 



* un octet donnant le numero du 
bloc modulo 256, Le premier 
bloc est le numero 1 ; 

* un octet donnant le comple- 
ment & 255 du numero de bloc, 
pour verification ; 

* 1 28 octets de donn&s, soit (au 
hasard ?) un secteur CP/M ; 

* un octet "Checksum' 1 qui est la 
somme sans retenue des 128 
octets de donnees. 

Le controle de transmission 
utilise les codes de contrdle 
suivants : 

* EOT (ASCII 4) Fin de 
transmission ; 

* ACK (ASCII 6) Blocre^uet 
correct ; 

* NAK(ASCII21) Refusdu 
Bloc regu» erreur ; 

* CAN (ASCII 24) Annulation 
de la transmission. 



Deroulement de la 
transmission coli emetteur 

1) Attendre pendant une minute 

un des deux codes suivants : 

CAN abandonncr 

NAK demarrer la transmission. 

Au bout d'une minute sans NAK, 

abandonnen 

Ceci est la seconde 
partie d'un article 
sur la carte SSC et 
le CP/M. 
Cependant, le 
contenu de ce 
numero (textes et 
programmes) est 
utilisable seul 
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2) Transmission, 

• Envoyer un Bloc de 132 
octets, 

* Attendre pendant 10 seconder 
maximum un des codes suivants : 
CAN abandonner 

ACK correct, passer au Bloc 
suivant 

NAK refiis6, renvoyer le meme 
bloc. 

Au bout de 10 secondes sans une 
de ces trois nSponses, renvoyer le 
meme bloc. 

Un Bloc mauvais n'est r£<Smis 
que dix fois au maximum, apr£s, 
on abandonne de la transmission, 

3) Fin du fichier. 

Le demier Bloc doit comporter 
des Ctrl-2 de remplissage. Si ce 
n'£tait pas le cas (fichier de 
donndes multiple exact de 128) Q 
faut renvoyer un Bloc complet de 
Ctrl-Z. 

Aprfcs envoi du dernier Bloc, 
rfimetteur envoie le code EOT, 
avec la mgme procedure que pour 
les envois de Blocs (10 essais 
maxi* 10 secondes maxi pour 
recevoir CAN t ACK ou NAK), 

Deroulementde la 
transmission cori rccepteur 

1) Attendre quelque chose en 
provenance de l'^metteur, en 
envoyant NAK toutes les dix 
secondes, ceci pendant une 
minute maximum. 



Help ! 

Vous avez. ia dequeue 
d'accampgnement : 

Utilise?, un programme du type 
Universal File Conversion pour 
transferer les fichier sur vottv disqueae 
CPlM puis tapez selon U cas : 
XMODR ou XMODE, 

Vous n'avez po& fa disquetie 
d'aceompgnemeni : 

Saisissez les codes objet d Voide de 
DDI, puis sauvegordez par 
SAVE 6XMODR.COM 
et SAVE 5 XMODE.COM. 
Eftfin execute i tune ou Vault e des 
commandes 



2) Reception de quelque chose ; 

• Cest un bloc de 132 octets. 
Verifier j'en-tto (SOH), et le 
Checksum. En cas d'erreur 
envoyer NAK T Si c'est correct, 
verifier le numSro de bloc : 

- Bloc attendu, envoyer ACK. 

- Bloc prfcident (I'imetteur n'a 
pas rccu le ACK 
correspondant), laisser passer 
et envoyer ACK. 

- Tout autre Bloc, le transfert 
est perdu, envoyer CAN et 
abandonner. 

• C'est le code EOT T Envoyer 
ACK t fermer le fichier, 
terming, 

• Ce n'est ni Tun ni 1'autre 
(bloc incomplet, ou "trou" dans la 
transmission), faire une "purge" 
de 5 secondes et envoyer NAK. 
En lecture, tout d£lai de plus 
d'une seconde entre deux 
caractfcres signifie un problfcme 
grave de ligne (mSme 3 basse 
vitesse, 300 bauds, cela fait au 
moins 30 caractfcres perdus). 
L'information sera de toutes 
facons ddgrad^e, la purge de 5 
secondes sert & laisser l'emetteur 
finir Tenvoi du bloc en corns. 

Remarque : une fois la 
transmission commencde, le 
r£cepteur doit abandonner sil 
reste plus de 10 secondes sans 
rien recevoir (l'emetteur faisant 
des renvois automatiques, cela 
indique une ligne complement 
couple). 

Lorsqu'on abandonne la 
transmission, il est recommand£ 
d*envoyer un ou deux codes 
CAN, afin de libtSrcr 
evenhiellement r£metteur. 

Le programme 

Le programme est en fait decoupe 
en deux commandes CP/M, unc 
pour remission, XMODE.COM 
et 1'autre pour la reception, 
XMODR.COM. 

Ces deux programmes sont assez 
voisins, assurem la g est ion du 
fichier & transmettre ou & 
recevoir, et le deYoulement du 
protocole. 

La carte SSC est initialised avec 8 
bits de donnties, 1 stop bit et pas 
de parit6. La vitesse n'est pas 



modifiee, II faudra la configurer 
au prealable, ou bien a l'aide des 
switches, ou bien grlce & un 
utilitaire de configuration 
(SETSSC.COM -voir n 26- par 
exemple !). 

Pour lancer un envoi de fichier, 
on entrera la commande : 

XMQDE Nomdufichisr 

Pour lancer une reception : 

XMODR Nonduflchler 

U suffit que les deux programmes 
soient lances dans la meme 
minute* chaque programme 
con men te l'etat de la 
transmission en indiquant le 
num£ro du blsc en cours, 
Eventuellement le nombre de 
remission d'un meme bloc en 
cas de problfcme, et le r^sultat de 
renvoi de Bloc (correct, enreur 
etc.) 

La gestion de la carte s6rie est 
rfrjuite au minimum puisqu'il n'y 
a aucun traitement des signaux de 
eontr&le. II suffit de tester l'etat 
des registres Emission ou 
reception. A noter que, comme 
pour SETSSC.COM, la routine 
de lecture du port s<Srie peut 
retourner au programme appelant 
un caractere frappe au clavier. 
Ceci donne done un moyen 
dventuel d'interrompre une 
transmission en frappant un code 
CAN (Ctrl-X), si vous constatez, 
par exemple, que votre 
programme recmet constamment 
le m&me bloc T indiquant 
manifestement un probl£me chez 
votre vis-a-vis. 

La mise en ceuvre est done trfcs 
simple, le choix de la vitesse 
d6pendra des conditions 
d'utilisation ; 

• en liaison locale par fil entre 
deux machines, la grande fiabiHte 
de ce protocole autorise des 
transferts a la vitesse maximale de 
la carte SSC, 19200 bauds. Ceci 
permet des ^changes de fichiers 
important* avec une rapidite 
spectaculaire ; 

• en liaison t£16phonique, cela 
d^pendra £videmment du 
standard utilise : 300 bauds pour 
Transpac V21, et 1200/75 pour 
V23. Sous XMODEM, le volume 
d'information 6chang£ est de 132 
octets dans le sens 6metteur vers 
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recepteur, pour 1 octet en sens 
inverse. La transmission en V23 
n'est done interessante que si 
e'est le programme demission 
qui utilise* le canal 1200 bauds, 
Its codes du progra m in e 
recepteur revenant par le canal 75 
bauds. Ceci suppose done 
Tutilisation d'un Modem 
repondeur (Mode 2). Si voire 
Modem ne comporte que le mode 
Appel„ utilise* plutot Transpac 
300 bauds, ce sera plus rapide, 

Enfin, demtere remarque, la carte 
SSC est monovitesse. Pour 
transmettre en V23 t il vous 
faudra un Modem capable de 
sym6triser ses entrees (celui du 
Minitel par exemple), ou la 
solution a deux cartes sirie, une 
Emission* une reception. Ceci 
6tant, XMODEM rend envi&a- 
geable la technique consistant £ 
utiliser un port monovitesse, en 
changeant la vitesse de 
transmission selon que Ton lit ou 
ecrit, puisque les operations de 
lecture et d'^criture sont 
alternges. Dans ce cas, il faut 
initialiser avec la vitesse de 
reception, reconfigurer l'ACIA en 
vitesse de transmission uni- 
quement au moment d'emettre, et 
repasser sur la vitesse de 
reception tout de suite apres. 
ATTENTION, ne jamais changer 
la vitesse lorsque l'ACIA est en 
train de faire une conversion 



parallele/s£rie, II faudra ecrire une 
routine d'dmission qui charge le 
registre de sortie avec l'octet 3 
e'mettre, et qui attende que ce 
registre soit vide (bit 4 du registre 
d'6tat) avant de modifier la 
vitesse. 



Aux CP/Mistes 
telemaniaques 

II faut mentionner ici un point qui 
sort du cadre de cet article, car 
utilisant un materiel trop 
sp^cifique, la Premium Softcard 
de Microsoft, iquipement qui 
represents Vartne absoluc pour 
l'inconditionnel de CP/M. 
Cette carte qui utilise le slot 3 
auxiliaire de l'Apple //e rassemble 
une carte SO colonnes Vendue et 
une carte Z80, avec toutefois une 
difference fondarnentale avec la 
Softcard classique : elle utilise un 
Z80 B a 6 Mhz, et d'autie part les 
deux processeurs, 6502 et Z80, 
sont dfcouple's et chacun 
fonctionne sur ses 64ko de RAM 
simultanement, alors que sur la 
Softcard traditionnelle, ils ne 
travaillent qui tour de r61e, sur 
les mSmes bus, en se mettant 
alternativement en DMA. Le 
programme d'application tourne 
sur Te Z80 tandis que le 6502 joue 
le role d'un processeur 
d'entrees-sorties. 



En plus de 1 'implantation CP/M, 
Microsoft a done d£velopp£ un 
O.S. particulier, le 65BIOS, qui 
est en gros une boucle d'attente, 
avec gestion des entrees-sorties 
de 1' Apple, d*un buffer de clavier 
et d*un buffer d'imprimante. 
L auteur a r£alis£ une modifi- 
cation de ce 65BIOS qui permet 
de g£rer quatie buffers : clavier 
imprint ante, reception RS232 et 
emission. Ce programme peut 
utiliser une ou deux cartes SSC 
(par exemple une reception 1200 
bauds et une emission 75 bauds, 
valeurs au hasard !). 

Ceci permet de creer des 
applications de transmissions tres 
efficaces. La gestion de la 
transmission des donn^es fitant 
assure'e par le 6502, en temps 
reel, on peut utiliser le Z80 pour 
faire tourner le program mm e 
principal sans impcratifs de 
rapidity (20Ko de buffer 
reception se"rie), ce qui autorise 
I'utifisation de langages ^volues 
(Turbo Pascal, Forth, Basic). A 
titre indicatif, un £mulateur de 
terminal Minitel, compile en 
Forth, occupe morns de 4Ko de 
memoire, et avec une facility de 
rnise au point et de modifications 
ties supeneure, 

Les CP/Mistes tdlcmaniaques 
impresses peuvent me contacter 
par Vinterme'diaire de la revue. 





Source 'XMODR.SOURCE' 



xelOfi FMJ DEBUT {IY*5) 



PRMSG: 



VI TLE J£Nm>Ji 



1 96 6 





BIT 0, 


LD 


C,S 


JP 


Z r 3DQ$ 


FVPft 


DG 


LD 


DE, MSC4 


RES 




CALL 


PRMSGl 


POP 


DE 




LD Q, 


■ W 


BDQS 



BOOT 
BDQS 
FCB 

BUFFER 

I 



EQU 

EQU 5 

EQV $CH 

EQU BOH 

T PHASE lQJff 
START 



FFMSQl: 

i Afflche 1b *?*i"*eE*r# rfjn* t 

PHCARi 



LD C t 2 



Rout toia CP/h 



j Xfflche 1b pqifitrf par DE 

F 2 point* d'entr**, *V4* at aanA *JUC d* Iiff/J# 



HSGJ : 



DB 13,10 

DB 27, *** 

ASC ' 

D» 13,10 

ASC ' XMODEM DovnloMding Utility 

DB 13*10 
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N.SG2: 

HSCJ,- 

MSG 1 f 

SUHBLOC; 
MSG 6: 
NSG71 
MSGS ■ 
MSG 9 2 
NBGlO: 
NSCl 4 7 
t 

NSGllr 
NSGIJi 



ASC 

DB 
ASC 
DB 
ASC 

OB 

ASC 

DB 

ASC 

ASC 

DB 

ASC 

DB 

ASC 

DB 

ASC 

DB 

ASC 

DB 

DB 

00 

DB 

ASC 
DB 

ASC 
DB 



' JF-R 
13+10 



128* 



3 Preparation 



13,10*13,10, 
■CJrt <r t op»fl Film* 
15,10, 'J' 

'Prompt inf Sender 5' 
13, 10,13,10, 'f 

' Received Bios 

'JUR Ok ' 
13+10,13,10, 

' Ntader Error* 

13,10, 

' C-liicfcaum Krroi ' 

13,10, ' J 1 

' Fit al Error 1 

thto, 

asc • Dl3X error' 

ii, ifif, 

AJC » ■ Kit *Q(netflin ff , buC ? ? ?* 
JJ,Jfl r »#' 

ASC ' Received EOT' 
l$ f 10, *$* 
DB 13,10 

•File received euccaej fully > 
J3,JP F '5' 
DB 11,10 
'Transmission aborted' 
13,10, 'f 



f CanmLanLea eL variables ilu proyrajwr* 

/ 

760 iK£?L r 6U ?Te?npar i J a t / dji J nn 

MA*™/ £0U 10 /Nonfrr* d'ejaaU n*xi 

BSIZE EQU 128 /Taille Buffer 

/ 

i Gmtac-tetea Aacll du protocol* 

SOH EDU 1 

EOT EQU 4 

AC* EQU £ 

Rfttf BQU 21 

CAN EQU 21 

SUB £00 26 

$ 

j Table da variables, palntee per 1 Y 



CQHPT: 

NPSSA1; 

FINIi 

BBLOC: 

PREBLOC: 

DEBIT?? 

CODE; 

I 

RBX_BVF: 

START 

i 



1 

OS 

1 
Qa 

i 



M 
ns 
cs 
ns 

PAGE 
EQU 

LD 
OR 
LD 
JP 
W 

CALL PHMSG1 



2 ^■"ojnpi.f ur 

1 fNh d'eftalt 

/Flag fin 

1 /Bloc cotltant 

/Bite precedent 

1 fFlmiJ depart 

fCade d efiVGyer 



BS1ZE+4 /Buffet de recepliafi 

$ fDebut pro&r*im* 
A, {BUFFER! 

A j Nam de flchier ? 

DB, MSGS 

Z f PJWSGi r 'fJtw r retwr ccp 

DE r MSGl 



ld c F iS .'Qvvenur* fichur 

LD DB, ECB 

CALL BDOS 

INC A i Trauve ? 

JR NZ, PREPAR 



LD C r 22 .'Creation fteHer 

LD DE, FCB 

CALL BDQ$ 

INC A /Correct ? 

LD DB, HSG2 

JF Z,FRHSG1 ftian, f« sort 



FHEFAH. 



LD 
LD 
LD 
XQR 

ID 

Ep 

r/j 
CO 

LD 



CALL C0NF_ACIA 

IY, COHPT 

A,l 

tJY+3l,A rler blo£ 
A 

(TYf5f,A rdibut 
(ir*H ,A tprectdetit 
A F * 

(IY+li,A :Nb eStels 
A t NAK 

tl n , A rCode d'dppsl 



tD DE r REG_BtlF+3 

LD C,1AH fAdresae DMA vera Buffer 

CALL BOPS 

LD DB, HSG3 

CAU. FRMSG1 

SET 0, (IT*Bf 

t 

; Envoi tGde d 'dJ>J»J 

ENVOI: LD E f ' 

CALL IWCAR 

ENVOI 1; LD A, TIG 

LD (IY+Q>,A rAttento 10 a 

LD DE,REC_BUF /Buffer d* arrive* 

LD B r ns:zt:*<i 

LD C f tIY+£f fC*rW-*ra 

CALL ECRITURE 



i Attest* rApanse 

UAIT: 



CALL LECTURE fQltfue chase ? 

Jft NC, RANGE ' 

DEC HY-tO) tJ'attenda ? 

Jft NZ f HAIT 

DEC iIY*l) r'Un autre esaal ? 

JR HZ, ENVOI 

LD DE f MEG9 ;Nan F trap tard 

JP ANNULE 



t Baud* ifltcr/lfl *U Buffer 



WA1T1 1 



CALL L&CTURE 
tlC, RANGE 



t Buffer incsoplet 

LD A, BSIZE*3 

CP B fl car recu ? 

JR NZ f PURGE 

DEC DE 

W A f tDE) 

CP EOT f Fin cT* te*n»mi9»iQn ? 

JP ? lr ?F.RMlNE ;Out 
; ph reception, tin purge *t Orl irafUff* 
PURGE: LD B r S 

CALL SECONDB 

Ul DE,H5G14 

JP REFUSE 

I 

• Sempl issiQe du Buffer de JrdfftpCJcn 
RAMGE2 LD IDF,), A 

INC DE 

DJNZ HAITI 

r 

t Tc+icafiUitt du Bloc re^u 

f , — 

DE, K5fi3 
CALL PRHSG 
LD IX,REC_BVF 
DE t NEGf 
A, SOB 
(IX+Q) 
SZ r REFUSE 
A, tIX+2) 



LD 
LD 
CP 

Jk 

LD 
CPL 
CP 

JR 



Header correct: ? 



iix*i) 

NZ t REFUSE 
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JH ACCEPT?- 

CP (ii+V tslvc *tt*ndu ? 

JR NZ, ANNULS 



A rlnit chakaum 

IX r REC_BUF*3 
B,BSI2E 



CALC CHKi 



XOA 
LD 
ID 

ADD A, fIX*Qt 

INC IX 

DJNZ CALC C»K 



CP 

JH 



DE f tiS$7 
ffi, RSFUSE 



/Chkaum Ok J 



j Ecriture 3uf Dlaqua das dann^*j 
> — — 

LD £,21 

LD DE, FCS 

CALL BDOS 

OR A f Problems 7 

W PS, HSGJ !J 

JR NZ f ANNULE ;Out r pn farm 



LD (IY+4),A 



Glossafre 

L&s messages en anglais simplifient ies transmissions 
outre-manche et outre-ocdan mais si la fangud das 
Beatles vous achappe... 



Downloading 


T4f$r&cepticn 


Cant open fila 


Ouverture fichier impossible 


Prompting sender 


Attente de t'dmetteur 


Received bloc 


Bloc recu 


Header enur 


Erreur d'entete 


Checksum error 


Erreur de somme de contrdte 


Got something but ??? 


Bien recu, mat's qu'est-ce ? 


Rocaived EOT 


Code de fin de fichier recu 


Uploading 


Telechargement 


Waiting for receiver 


Attentte du r4cepteur 


Sending bloc 


Envoi bloc 


Acknowledged 


Compns 


Cancelled 


AnnulS 


File sent successfully 


Fichier bien transmis 


Transmission aborted 


Transmission annul&e 


Bad command 


Erreur da command e 



; Accept e Iw Blac rwcu 



ACCEPTS i 



W1VANT: 



j /to cf« blue *n AmcH 



IJ3 W r NUHBLOC 

CALL CONVERS 

LD DF, r NVffBLOC 

LD A, ACK 



LD (lr+6),A 

LD A, 1 

LD ar*i) t A ;i MMi 

CALL t'kMtCl 

JF ENVQU : Validation 



r Rafuae la Bloc 



JH 



LD A, NAK 
SUIVAJTT 



t Annuls la L ranaml its/ J t>n 



ANNULS i CALL PRMSS 

LD C, CAN 

CALL EGRITURE 

LD B,3 

CALL 5 EC 2ND E 

CALL ECR1TUR£ 

LD DE,HSG13 

JR CLOSE 

,■ 

.■ Pin fife transndaolon 



J ERMINE: 



LD DE, MSG1 1 

CALL PSMSG 

LD C, ACK 

CALL ECR1TURE 

W DE,HSCl2 



CLOSE: 



CALL PRHSG 
LD CflS j Parma le iichier 

rjy pp., fcb 

CALL BDOS 
LD DE, BUrFEU 
Ci 1AM 
BDOS 



LD 
JP 



PACE 

f JfoMClnas da BtrVti* 



• Adrfi.iseta du port RS232 



NsLQF F.00 
DIPSW1 
DI2SW2 

RDREC- SOU 

TDREG EQU 
STATUS 
COMMAND 
CONTROL 

I 

: Clavier 

t 

KltD EQU 
KfiDSTR 

i 

.; t\wf irjt'T.f tnr\ da 1'ACIA 



C£0A0N ,'Carto nn slot ? 

EOV NSLQT+1 /Switches 1 

EQU NSL07*2 fJWtcftM 2 

NSLQT+8 /Rapiitra lecture 

NSLQT+8 jftagiBtea eeritur* 

E0U NSLDT+9 ; Rapist re d'ccit 

EQU NSLOT+UAH /RaijisLFO tie command fi 
ECfV NSLQT+QBll ; HrginL ro do cOaltole 



QEOOOti 

EQU OfiQIDH 



: 9 DATA, 1 STOP, 
i UtjJiaa A 



CONF AC I A j 



3ans Pa£iZa r Vita-BS* £OUfAflt# 



LD 


A t (CONTROL) 


AND 


Of II vlLesie 


OR 


IQJt JffJCd Bt Stop 


LQ 


{CONTROL) , A 


Id 


A f S fRTSf DTR t sana 


LD 


{COHNAJNQ} , A 


LD 


A f tRDRF.O) ft nit RDft 


K£T 





Routine do lecture du purl RSZ32, 



t 
t 

I 

; 

t 

t 

LECTURE . 



Rataur avec caractare dana A el Carry A t 

Oil rttObf *U BOUt d'ltnw ra^onda avac Carry A 1 
Si £r*ppa CJj|vifljr rf ra-tDur avec car t clavier. 
Otiliam A, tiL, IX 



LECT1 



LD 
BIT 
JR 
LD 

LD 

CO 
CD 

.m 

LD 

Sfl 

JF 



UL f STATUS 

j r (fib) 
NZ, LECT2 
IX, TEMPO 
A 

(IX*Qi f A 

sa 

(IX+ll,A 
BIT 3 j frfLj 
NZ, LECT2 
A r (KBU) 
A 

M, LECT3 



xRDH plain t 
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DEC (IX*U) 

JR N£, LECTl 

D£C (IX* 1} 

JR NZ, LB CTl 
SCF 
RET 

LECTZi DEC HL rAdraj 4 ftOR 

LD A, (HTJ 

OR A 
RET 

LF.CT3: LD ( KUDSTR} f A 

AND 7FH 
RET 

i 

f Routine d l icrlture du part R5232 



/ UKillaa C at hi. 



Source 'XMODE. SOURCE' 



TITLE X.1DDE 



/ 

f Emla&lGn dv flchlvra au prc?CacuJ« XMODEM 
I 

9 JF-R 19BS 

t 



/ Adresaea CP/M 



BOOS 

fcb 

BUFFER 



EQU 
EQV £ 
EQU 5 CSt 

EQU BON 



ECRITVREi LD ML, STATUS 

ECRIl; BIT 4, (HLi tTDR Vide t 

JR Z, ECRIl 

DEC HL fAdrtisae RDF. 

LD (HL) , C 

/ Bcur.la d'attunto. nh tjn JweondvS HAM B 



I Utilise A *t ZX 



SECOUDE 
SECON1 i 



SECCN2: 



U) 
LB 
LD 

JR 

DEC 
JR 



IX r TEMPO 
XQR A 

t IX* ®} r A 

A,220 rinlt r t nmporJ h ( 4 on 

(IX+lt,A 
DEC (SXtO) 
bfZ, SEC0N2 

ilXfl) 
HZ, SECQN2 



/ 

TEMPO: 



tiJNZ SKCONI 
RF.T 



'it. 



feampteiir 



t CQflVetniQft *n AJS-it du ffS/l£*nu de A 

f Range A (IX), sur J octets. 

: Otilitf A, IX, DE, ML 

t 

CONVKRSl 



CONVEX 1. 

GONVSRl, 



CON VMS; 



.PHASE 1Q3H 
JP START 

/ flSUCirt** CP/M 

t 

: A£flctl* 1b massage ppjnt* p*f DE 

PkMSG: LD C, ) 

JP BDOS 

t At't'lche le caract&re dans E 

PMC/Ji: 



JP 



LD C,2 
BDDS 



MSG1> 



00 13,10 

ASC 'Bad Command. . . f 1 

DB 27, 

DB 13,10 

ASC ' XMODEM Uplaadlhf Utility* 

DB 13,10 

fl£C ■ JT-R 1966* 

DB 13,10 

A5C ' 1 

DB 13,10,13,10, '5 1 





L,A 






'tan*'t upon File 1 


LD 


B,0 




96 


13, 10, >5' 


LD 




MSG J; 


ASC 


*W*4tiritf ftir rtt?pJ^or + ' 


CALL 


CQNVER1 




DB 


13,10,13,10* ! S l 


LD 


DF, J 




DS 


1 


CALL 


CDNVERl 


MSG4.- 


AST 




LD 


A, JPfl 


NUMilLCC; 


ASC 


'XXX t ' 


9H 


( 




DS 


1 


LD 


f 1X1-0) f A 


MSGS: 




T XX sanding f.ot f 


in 


A x (IX+CFEH} 




A£P 


5 1 


CP 


30H fB f 








RET 




MSG6: 


fi.SC 


'Acknowledged ' 


LD 


A, SON sor, r*l un BlaftG 




DB 




16 


rrX*QFFH) r A 


MSS7z 


ASS 


'Hern Ackn&VledQcd' 


LD 


A f fIX*GFFH) 




DB 


13,10, h 5' 


CP 


3QH 


MSGfi; 


ASC 


'C&ncell ed 1 


RET 


F% 




DB 


'J' 


LD 


A, 20s 




ASC 


'Timeout 1 


LD 


{IX*QFFH) t A 




DB 


13, 19, 5' 


RET 




t 






XOR 


A 


MsclO; 




DB 13 t 10 


SBC 


HL,PR 




ASC 


■TJ Ja writ sueeaja/uJiy 


JR 


C, C0HVER3 




DB 


13,10, '5' 


itic 


A 


MSGll : 




DB 13,10 


JR 






ASC 


• TF/kaaaf saion Jiberted ' 


ADD 


HL, DE 




DB 


13,10, *£' 


OA 


30 H 


i 






LD 


(1X*0),A 




YMTt&l** du progrjmme 




IK 








RET 




; 










T10 




10 tT§iapoTi*Mtlen £5 « 


END 




T6Q 




SC ; Temper 1 sal ion 1 mn 



34 
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MAXTRY EQU 1Q fHvrnbre d'aataia faitf! 

BSIZE EQU 128 rTaille Suffer 

, T Cji retires Asci A tin protocol a 

SQH EQU 1 

EOT EQU 4 

ACK EQU G 

NAK EQU SI 

CAN EQU 74 

.-: rrji EQU 26 

I 

/ Tibl« rts variables, point** pa? IY 



RES Q, HY*2) f Pas Clnl 
Envoi d[f Bloc 



t 

ENVOI 1 i 



LD 



LD 

sub 

BIT 



U> A f MAXTRY rlG ansa is max 

LD 3,(IY*If 

H ;No da 1 'essai en caurs 

0, (IY42) fFtnl ? 

Z.ENVOll fMon, mart Jo du Bloc 



COHFT: 
NESS All 

FINS: 

NBLOC: 

START 
t 



OS 

PACE 
EQU 

Id) 

on 
LB 
JP 
LD 
CALL I 



OS 1 ;CQmptsur 

OS 1 ,' iVi> if-**»«i* 

1 pFJjia fin 

OS 1 fBltt GaUrtnt 

$ fD&but progrjirrw 

A, (BUFFER/ 

A fNam da flchler J 

ZfPHMSE /Non, retour CCP 

DE, MSG1 ;Eh-tete 



':.w:;r. , 



1.0 



C, 15 /OuvcrcuiT* tickler 
DE> fcb 



LD lX f MSG5-l 

CALL CONVERE /No bujJ en Asrzil 

LD DE, MSG5 

CALL PtiMSG 

LD C 4 EOT 

CALL ECRITURE 

JR VALID 

LD IX,HSG4-1 

CALL CVttVEMS /Wo ensei 

W> A f fIY*3) iNa Bloc 

LD IX, NUHBLOC 

CALL CONVERS 

LD o£, rtsGI 

CALL PRMSG 



CALL BDQS 





INC 


A ;FtchLer trauve J 


LD 


C f $QH ^Header 




LD 


DE f HSG2 


CALL 


BCRITVRE 




JP 


Z t Aii'JH'i ; Nan, wreUr . 


LD 


A, ( IY*3l 


■' 






LD 


C t A r 'No Bloc 


r 


Preparation 




CALL 


ECR1T0RE 


/ 






CPL 








COM? AC I A 


LD 


C f A /25S-No Bloc 




LD 




CALL 


ECRITURE 




XQR 


A 


XQR 


A :lfiic Cf\acKaun\ 




LD 


(XY+2f r A ?Paa Flit! 


LD 


IX, BUFFER 




INC 


A 


LB 


B t pSIT.F. 




LD 


(iY*-J) f A ;aive i 


ENV_BCL: LD 


C, tIX-0i tCaraeterw 




LD 




ADD 


A,C 




LD 


(IY+9},A t$ minute 


ISC 


IX 




LD 


DS f MSG J 


CALL 


ECRiTlME 




CALL 


PRMSG 


DJNZ 


ENV_BCL 


r 






LD 


CjA /Checksum 


i 


Attentat r£ceptcur 


CALL 


ECRITURE 



/ — 



»AIT_PEC: 


CALL 




Car*ct£m 7 


J At i ■ 


validat Ion 




JR 


ffC r WAIT2 










WAlTl : 




DEC tXY+Q) 


fJ**tzond3 errccro ? 


VALID i 




LD A,T10 £T tnatt 




:\k 


ta f »AIT_R£C 






;j7 


(Xr*tiJ t A 




LD 


DE, MSG9 


Tvmp* max I 


VAL1D1: 




CALL LECTURE fRapOn** ? 




JP 


ABORT 






jp 


rit,VALJD4 tGvl 


WAT T2f 




LD DE r MSCS 




VALID?: 




DEC UY+0) rJ'/iLLcnds 




CP 


"AH rCAflGel 


? 




. rfl 


H2 t VALID1 J QUI 




JP 


Z, ABORT 






LD 


DE, H&G9 




CP 


MaX 






CALL 






JR 


NZ, HAITJ 




7 







Lire un flufrnr 



RDRUF 



EQ'J 

LD 

LD 



C f 20 
DE, FCB 



CALL HDDS 

Ok A tFin tic Ilehl*r 7 

JR RENVOI ;Non, en*al du Bloc 

set y> (irt2j r -rini 

LD IX, BUFFER* d3 IB E-l 

LP A? SUB ?Ftn du bloc 

CP (XX+Q) f - Cttl-E 7 

JR Z t ENVOI 



/ Si pas de rcponsr, on renvoi le Bloc nctuel 

/ — — — — — — ; "*"' 

VM.nJ.i: p&C UYH) /Encore un essal ? 

JR NZ, ENVQIi ;Cui, rwnvoi du Bloc 
JP ABDRTl 

I 

; Tost du coda «cu 



; Renvoyer un blaC pi tin d§ Cttl-Z 
LD IX, BUFF E A 
LD ii, BSIZE 

RDBUF1 : LD fIX*Q> e A 

OJMS RDBUFI 



VALID4 



VALID Si 



VALID*: 





CP CAN 


JR 


N2, VALID5 


Li ■ 


DE, MSGS 


JR 


AMORT 




CP NAK 


Sn 


NE r VAL1D6 


LD 


DE, MSG? 


CALL 


PRMSG 


. fH 


VAL1D3 




CP ASK 


JR 


NZ, VALID2 



; slap Accepts 
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CALL PRMSG 

bit Of (ir+2t trim ? 

■TR N2, TERMINE 

tnc (iy*3) rttoe *ulv*nt 

JP RDBUF 



Fin tie I r-ansml 33 1 on 



1,0 

JP 



DE f MS 61 



A BOAT I 



CALL PftWSfi 
LO Off , WCJ J 
JP PRHSG 
FAZE 

t Routines do service 



Atir*i.i.iti!i rfy port R2J3? 
EQU 



N&LCT 
DIPSW1 
DIPSW2 
REREG 
TDREG 
STATUS 
■ ■: 

CCNTROL 
f Clavier 
KBD 

kbiistr 



EQU 
EQU 



EQU 



OeOaOH /Carte wp sJot 2 

EQU NSLQT+1 iSVllCtea 1 

SQL! NSLQT+Z .'Switches 2 

fJSLQT*3 • Regis.* rc jeetur* 

HSLQT+8 rRealstre ccrltilre 

EQU NSLQT** JfttQlMtFti 
EQU N$LQ?*QAH ,-fleffisero do cvtnnande 
EQU NSLQT+QBH fRtsQistr* dm CC/ltroI* 



flESflfltf 

EDV OEQiQH 



,■ Rctaur Jivac cjir.vr.tfire djins A at Carry A 

cju rttouf Alt bo-Jt d'urttf 4a£6rtd* aVet Ctrey A I 
/ fjr*ppv Cimvier r recou.' i«e car, cijvJfjjr. 
; Utilise A, y IX 

LECTURE! LQ Ml, STATUS 

BIT 3, (HU ;RDR pJoJrt ? 

^z, met* 

LD fjf, iTCMPO 

LD (lX*Q) f A 
LD A, M 

LD tix*thA 

LECT1 : 31 T 3, (HI) 

JR UZ t LECT2 

LB A t \KBD} 

OR A 
JP tSCfS 

SEC (IX* Q) 

JR NZ, LECT1 

DEC (IX* If 

JR SZ f LECT1 



: Rout Lntt d'4crltur* du pert RS232 

S Ecrlt le co/ite/ru do C. 

/ Veil if C #t HL 

i 

EZRITVPEi LD HL, STATUS 
ECRfl ; BIT 4 § fHL) 

JR Z f ECRII 

DEC HL ;Adteise RDR 

LD (HL) t C 

RET 



t Dcucle d'jttojito, dtf MCCftdo* dsns S 
i Utilise A at IX 



f tor viae ? 



secc-n; ; 



IX r TEMPO 
XCR A 
{ JX+Qf, A 

A,??8 fioit. tcmporisAticn 
(IX*lj f A 
DEC {J.X#Q} 
NZ, SEC0N2 
{IX+1} 
NZ, SEC0N2 



;..<: 
I£ 

LD 
LD 

JR 
DEC 
JR 

PJN3 MDCWJ 
RET 



TEMPO 



D-5 2 rcompteur 
t Conversion en Ascil du cantanLt c(6 fi 
f Rjinyt J f JJfJ, our 3 octets. 



; Configuration de 


l'ACIA ; Utilise 


A, IX, 


DE f HL 


; 8 IJATA, 1 STDP t 


tin* PtrltAf Vitesse courante CDNVERS; 


LD 


t,h 


I Utilise A 




;.n 








LD 


OE, 1 


CCNF_ACM: LD 


A, fCOHTROL, 


CALL 


COftVERl 


AND 


SFH fRecup, vi tease 


LD 


DE,1Q 


OR 


1&H :D4t* #t step 


CALL 


COHVERt 


LD 


{CONTROL} t A 


LD 


A, 30H 


LD 


A f 9 tRTSi DTR, Sins pdtlte 


OR 




LD 


(COMMAND } t f. 


to 


fIXtVl.A 


LD 


A4 (RDREC} ;lnlt RDR 


LD 


A y {IXtOFEHJ 


RET 




CP 


30M /B ? 


f 




RET 





C0NVER1 1 
CQNVER2, 



LD A, SON Ton met urt Blanc 

LD (TX1 HFEHI f A 

LD A t (ix+orrn) 

CP SOU 

RET W£J 

r.n A, 2Qti 

ld ux+orrm,* 

RET 

XQR A 

SBC HL, DE 

JR Ct CONVERT 

INC A 

JR CONVERT 

ADU HL 4 DE 

OR 30H 

LD tIX+C),A 

INC IX 

HE? 

END 



Dump hexadecimal de XMODECOM 













0100 


66 


00 oc 


C3 6D 


02 


OE D9 




f/1 


30 OE 


02 C3 


03 


oc 




RET 








QUO 


Jfl 


OA <J 


6} 64 


yo 


*J 6F 


to 




61 fl 


i4 2E 


2E 


2E 


LSCT2; 




DEC 


ML iAdtewSe RDR 




;i;o 




JH 2A 


^0 2D 


2D 


2D 2D 


?L 


2D 


2D 2D 


2D 2D 


20 


JO 




LD 


At {HL) 






0130 


20 


2D 70 


2D 3D 


2D 


2D 2D 


2B 


2D 


2D 2D 


2D 2C 


D£ 


OA 




QR 


A 








20 


59 4D 


tF 44 




4D 20 


29 




55 70 


SC 6F 


fi.' 


B | 




RET 








0150 


i ) 


6E 


SO 55 


M 


ts it 


A H 


74 


79 0fl 


PA SO 


4A 




LECTJi 




LD 


{KBD5TR) , A 




out 




S2 26 


20 26 


H 


26 20 


20 




20 20 


20 20 


20 


.<!■■ 




AND 


7FH 






0170 




20 2t2 


20 31 


39 


IB 


Kb 


OA 


?n 7B 


■JD JIJ 


2D 


2a 



Pom's n* 27 



QIBQ 
0190 
01AC 
OlBO 
01C0 
0100 
01SQ 
01F0 
Q2QQ 
0210 
QUO 
Q230 
0240 
0250 
0250 
0270 
0260 
0290 
02 AO 
Q2&0 
02CQ 
020 
02E0 
02F0 
0300 
nun 
0320 
0330 
0340 
0350 

0370 
0380 
0390 
03 AO 
03H0 
03CQ 
03DQ 
03E0 
03b0 
0400 
6410 
0420 
0430 
044 
0450 



2D 2D ZD 
2D ZD 20 
6F 70 65 

69 4E 67 
2S OD OA 
6& 67 20 

24 SS 79 

51 20 20 
SF 77 Sc 
41 63 6a 

SI $E ff3 

75 ?1 00 

20 73 75 
QO OA 54 
6Z fr 72 
B7 11 10 

so oo co 

21 69 02 
11 AC 91 
11 2D 02 

20 ES OS 
C6 DD 21 
06 80 DO 
77 01 FD 

ki oi co 
1$ 3E pd 
CD 15 01 
03 4F CO 
BO DD IE 

H oa fn 
:>r op c:> 

05 11 IF 
IB E3 FS 

70 Q6 fD 
01 11 5? 
EO 3B 09 

21 DD 21 
20 13 3A 
01 20 EB 
A9 EO CB 
00 3E El 

1 EB C9 
00 CD 41 
3E 20 DD 

cl af Ed 

23 SB 00 



JD 2D 
ZD ZD 
6E 20 
20 64 
OD OA 
42 6C 

n so 

20 20 
*S $4 
4E 6F 
fi* PC 
OA ?4 
63 63 
72 61 
74 fi* 

01 CA 

05 OB 
AF FD 
CD 06 
C3 9E 

14 11 
FF 00 
77 00 
16 01 

15 04 

21 Ct 
11 C7 
EF 03 
00 61 
77 00 
oe til 
Q? IB 

06 20 
J4 03 

02 CJ 
32 AA 
13 04 
00 EO 
37 C9 
66 2S 
OD 77 

3S ft 
04 3E 
77 FE 
52 38 

on an 



2D 2d 2d 
CD OA OD 
If 69 6C 
6F 72 20 
24 £5 7$ 
SF S3 20 

20 53 65 

20 20 29 

6? $5 64 

77 SC 65 

SC 65 U 

QD OA 4ff 

(5 73 ?3 

iE 73 iD 

$1 OD QA 

06 01 11 

JC 11 QA 

77 02 3c 

01 CD BA 

63 ii ir 

SC 90 CD 
3E 1A DD 
DD 23 1G 
3E OB 90 
11 B2 01 
01 CD 15 
01 CD 06 
2F 4F CD 
DD 23 CD 
CD MA 03 
FD $5 01 
2ft FE FS 
04 11 FC 
C3 C2 02 
06 01 3A 
EO 3A AS 
AF DD f} 
B7 FA E9 
ZD 7B S7 
FC 2B 71 
01 DD 35 
6F 26 CO 
30 B$ DD 
DD 7E FF 
03 3C 19 
00 00 QO 



2D 2D 

OA 24 

65 OD 

72 65 

79 20 

78 78 

tF. 64 

20 20 
OD OA 
64 67 

OD oa 

69 6C 

S6 7$ 

69 73 

24 E5 

21 01 

01 CA 
FD 7? 

03 30 

02 FE 

a:, on 

BE QO 

F9 FD 

FD CB 

CD 06 

04 FD 
01 OF 

ei o i 

EF 03 

30 13 

SO 86 

pn as 

01 CD 

11 35 

AB EO 

EO C9 

(ID IF. 

O.i IH) 

C9 32 

C9 DD 

00 20 

11 64 

77. 00 

FE 30 

F9 19 

QO 00 



2D 2D 
43 Hi 
OA 21 
63 65 
20 l>3 
78 20 
6F. 

20 21 
OA 24 

*>J 

24 54 

t$ 26 
SC fG 
73 69 
E5 £5 
CD P6 
9E 03 
03 JJ 
Otl Fi) 
16 CA 
H? 28 
26 11 
CB 02 
02 4$ 
01 OE 
7E 03 

01 CD 
AF DD 
10 F5 
FD 35 
C3 Al 
J 1 OC 
06 Ql 

02 C3 
£6 OF 

21 A9 
67 DD 
35 03 
10 K'J 
21 13 
FB DD 
00 CD 
DD 7E 
CO 3E 
F6 33 
00 01 



2D 2D 
iE 2? 
57 SI 
59 76 
BE 

20 2Q 

£7 20 

11 63 
IE tff 
3D OA 

69 6D 
73 65 
79 OD 
6F &F. 
E5 3A 

01 OS 
CD A7 
3c FD 
35 00 
9E 03 

70 FD 
DD 21 
86 3E 
26 11 
H CD 
DD 21 
JSF 03 

21 80 
IF CD 
DO 20 
03 FE 

02 CD 
FD CP 
06 01 
FS 10 
EO CB 
77 Ot 
ZO FO 

si 7/ 

U AF 
35 01 
11 01 

FE FE 

?{\ pn 

DD 77 
30 00 



2D 2D 
74 20 
Si 74 
65 72 
61 4* 
20 20 
45 4F 
iB 6E 
SE 20 
24 13 
65 6? 
6E 71 
OA 24 

20 61 
40 00 
OF 11 

03 FD 
77 OB 
20 Fi 
FE 15 
CB 02 
90 OP 
OA FO 
DD 21 
EF 03 
08 01 
FD 7E 
QQ OS 
EF 03 
F6 11 
18 20 

04 01 
02 4 6 
CD 06 
32 AB 
5E 20 
CM 5E 
DD 3$ 
C9 21 
DD 77 
ZO Ft 
11 OA 
36 CO 
ft Ft 
00 DD 
00 00 



OlOO 


Oil 


Q Q 


00 


C3 






r% 




05 


■1,. 


OE 


09 


CA 


': 




n: 


0110 


11 


OB) 


1 


FD 


CB 


on. 


86 


CD 


IB 


01 


Dl 


&M 


09 


C3 


d >. 


00 


0120 


OS 


02 


f.M 


OS 


00 


OD 


OA 


j -' 


(1 


64 


7 


41 


SF 


4D 


4D 


fi 


0130 


l>i: 


64 


2S 


2E 


2B 




IB 


2A 


20 




2D 


Jfl 


2D 


2D 


2D 


2D 


QUO 


ZD 


. J D 


71} 


?a 


7!: 


2D 


2D 


2D 


2D 


2D 


20 


2D 


2D 


2D 


2D 


2D 


"1 'ifl 


J'li 


2p 


2D 


2D 


2D 




OA 


20 


SO 




IF 


41 




40 


20 


2C 


0160 


20 


r4 


SF 


77 


SE 


M" 


fi 


61 


64 


CI 


OK 


€7 


20 


a s 


n 


6S 


0170 


fiC 


is 


71 


79 


OD 


OX 


?(i 


4A 


46 


2D 


':7 




20 


20 


20 


20 


uiva 






20 


20 


26 


fffl 


.TJ 


20 


711 


,'ft 


?f) 


Z5 


30 


Bit} 


H 




0190 


3 9 


38 


3t 


OD 


OA 


20 


2D 


2D 


2D 


2D 


2D 


?c 


2D 


70 


ID 


ifl 


OlAO 


2D 


fD 


7)\ 


71) 


7!) 


SO 


2D 


2D 


2D 


2D 


2D 


20 


2D 


28 


2D 


2D 


01B0 


2D 


2D 


OD 


PA 


OD 


LA 


24 


43 


fi ' 


4E 


27 


74 


jn 


SF 


to 




OICO 


ts 


,"J 


46 


69 


6C 


45 


Ou 


OA 


21 


SO 


72 


6F 




70 


74 


6S 


owo 


6£ 


$? 


20 


13 


fci 


4.E 


44 


65 


72 


20 


•7< 


QO 


OA 


Pfl 


•v, 


24 


OlEO 


.*"' 9 




65 


i\ '< 


65 


f 'J 


7i 


65 


64 


20 


42 


tc 


fj 


S3 


to 


24 


OtFO 


73 


78 


78 


20 


7Q 


20 


2 B 


|# 


SB 


f?. r ; 


OA 


OD 


OA 


ii 


20 


30 


0200 


20 


io 


20 


.>ri 


20 


t, 


65 


61 


64 


ft'. 


72 


?c 


IS 


72 


72 


6F 


0210 


72 


Id 


OA 


21 


20 


20 


20 


20 


20 


is 


;> o 


13 


69 


6$ 


S3 


6i 


0220 


73 


75 


SD 


20 


45 


72 


u 


SF 




Hi- 


OA 


21 


20 


20 


10 


to 


02 30 


s'U 


20 


70 


16 


si 


74 


61 


sc 


2G 


is 


i7 


72 


by 


72 


OD 


OA 


0210 


21 


?0 


20 


ZO 


Jfi 


Jfi 


?n 


20 


n 


69 


6D 


65 


$F 


is 


74 


OD 


0250 


OA 


74 


20 


20 


20 


20 


?o 


20 


20 


44 


fit 


73 


4B 


20 


.; 


72 


02$ 


/•■' 


4r 


72 




ha 


31 


20 


to 


20 


20 


I 1 


$\ 


71 


20 


73 


6F 


0270 


60 


$5 


71 


ts 


i fi 


6E 


67 


2C 


ZO 


62 


7S 


71 


30 


3F 


ZO 


3F 


02S0 


,■■>! 


IF 


01) 


OA 


24 


70 


52 


65 


S3 


S3 


fS 


76 


is 


64 


20 


45 


0290 


4F 


54 


op 


OA 


74 


OD 


OA 


46 


69 


sr 


S3 


?D 




6h 


i ! 


SB 


02 AQ 


S3 


74 


si 


64 


7<, 


?J 


/s 


63 


$3 


^5 


i f 


7) 


44 


7S 


tc 


4C 


02BQ 


7? 


m> 


OA 


21 


OD 


0A 


51 


72 


i i 


f> 


73 


SD 


u V 


73 


73 


S3 


Q2£0 


6F 




70 


61 


62 


SF 


f3 


74 


65 


II 


OD 


OA 


24 


00 


■<U 


06 


02DO 


00 


00 


:;a 


to 


06 


60 


00 


00 


00 


00 


00 


M 


00 


on 


(if) 


06 


O7F.0 


QQ 


00 


00 




PC 




00 


00 


00 


00 


00 


09 


QO 


no 


6D 


OC 


O2F0 


Oil 


00 


70 


99 


00 


oc 


g o 


rju 


00 


00 


00 


00 


00 


OS 


QO 


Q 



03U0 

0310 
0320 
0330 
034C 
0350 
03S6 

0370 
0380 
Q39S 
03AC 

03CC 
03QQ 
03EC 
G3FC 
O4O0 
0410 
0420 
0436 
6446 
Q1SQ 
Q46Q 
0170 
0490 
0490 
04AC 
OIBQ 
O4C0 
04D0 
04 EC 
04F6 
0506 
051C 

05J0 
0540 
055C 



Oti 00 
00 00 
00 00 
00 00 
QQ 00 

00 00 
W 01 
3C 20 
IB 01 
77 0$ 
D7 02 
C6 IE 
HJ 4£ 
FD 33 
3E 83 
04 11 

01 DD 
7M 02 
FD BE 
23 10 
CD 05 
34 03 
06 JE 
CD OS 
11 81 
11 95 
00 OE 
3E 09 
DD 21 
13 3A 
20 EB 
$i) CB 
3E E4 
EB C9 
CD 4 
20 DD 
AF ED 
C9 00 



00 QQ CO 

00 00 00 

00 00 00 

QO 00 00 

00 00 00 

00 00 00 

11 36 01 

OF OE IS 

CD AS 01 

FD 77 04 

OE 1A CD 

2E CD 20 

06 CD EE 

01 20 DC 
59 £0 07 
SS 02 C3 
21 D4 02 
2F DD BE 
03 20 4B 
F9 11 14 

00 B7 11 
DO 21 FO 

01 FD 77 

01 OE 18 

02 IB OS 
02 CD 0$ 
1A C3 05 
32 AA SO 

12 05 AF 
00 EO B? 
37 CB 2B 
SS 28 FC 
DD 77 01 
CD 96 6F 
05 3E 30 
J! FE DO 

52 38 03 

00 QO 00 



QO 00 
■JO 00 

00 00 

00 oo 
no oo 

OQ Q0 
CD 13 
11 SC 
FD 21 
3E 0$ 
OS QO 

01 3E 
04 CD 
11 41 
IB 1A 
4C 04 
11 FE 

01 20 
AF DO 

02 DD 
52 02 
01 CD 
01 CD 
CD ES 
11 85 
01 08 
00 3A 
3A A3 
DD 77 
FA E8 
7E 87 
2B 71 
DD 35 
26 QO 
B5 DD 
7E FF 
JC 1$ 
QQ 00 



00 00 

QO OO 

Otl (ft) 

00 QO 

00 VO 
QQ 3A 

01 OE 
OQ CD 
CD 02 
FO 77 

11 C9 
QA FD 
39 04 

02 C3 
FE Ql 

12 13 

01 Jl 
54 FD 
21 P7 
PF OO 
20 27 
14 05 
06 01 
Q4 (16 

02 CD 

it> ti 

AB EO 

i'Q C9 
QO 3E 
04 DD 
C9 32 
C9 DD 
QO 20 
I I 64 
77 00 
FE 30 
F9 19 
OQ 00 



00 AG 

00 OC 

60 OC 
00 OC 
QO OC 
so oc 
OF 11 

65 06 
3E 01 

61 3B 
5 1 CD 
77 QQ 
30 2C 

CA §3 

LO EQ 

Ql DD 

BE 04 

62 Ot 
:<o >) 

FD 7E 

11 FO 

C3 m 

3 CD 

66 01 
5C 00 
ES OF 
21 AS 
62 DD 
35 OC 
10 so 
21 12 
FB DO 
00 CD 
DD U 
CO 3E 
F6 36 
60 00 



00 00 
00 OO 
OO OO 
QO OQ 

00 OO 
fl? 11 

sc oo 

3C 11 
FD 7? 
15 FD 
IB Ql 

U D4 
FD 35 
<V f.r5 

04 Q £ 
11 EO 
HE QC 
29 3$ 
46 DD 
DE 13 

05 FD 

01 3E 
03 3E 
FS 4 
OE 06 
CD 05 
Ft 10 
EO CB 
77 01 
20 FO 
Kt 7 b 
CB AF 
35 Q I 
40 05 
FE FE 
20 DC 
DD 77 
60 00 



QO OO OO 
OO OO 00 

oo oo oo 
oo oo oo 
oo oo oo 

25 01 CA 

co os oo 

37 01 CA 

03 AF FD 
77 06 11 
FD CB 05 
02 OS 81 

00 20 FS 

04 30 17 

05 CD fS 

01 CD Q6 
20 5D DD 
11 JC 02 

84 OO DD 
11 DC 60 
77 Ql FD 
OS FD 77 
15 18 EE 
CD EE 04 

CD EE 01 
OO 11 80 
32 AB EO 
5E ZO 24 

CB liE 20 
DD 3S 01 
C9 21 A9 
DD 77 00 

20 FS 10 

II OA 00 
30 CO 31 
77 FF C9 

OO DD 23 
OO OO 09 



Dump hexadecimal de XMODR.COM 



12 fonctions de base, 
200 disques, 
500 programmes.*. 



DOS 31 




/ TRIDO 




Pascal 



ProDOS 



Capture Ic catalogue, 

Imprime, 

Archive, 

Retrouve les programmes de vos 
disquettes des trois DOS 



i 

1 



180,00 F franco France metropolitaine 

Badaroux CA, 

144, rue Legendre - 75017 Paris 
T41 : (1) 47 57 91 11 



Pom's n* 27 



Cette fois Gutenberg n 





Gutenberg et ses ussocjos, ties gens 
Irts perfectionnistes an demcurant, 
irh&itant pas a reorder & [a loupe lc 
ineiodfe ctetail, n'avaicnt pourtant 
fait que la moitifi du travail. 

Le potivoir de r&Jiiion e'est bten, 
pouvoir editor sni-mOme. c'esl niieuM. 

Cest d'ailleurs le seul nioyan de 
pouvoir parvenir it la vraie liberte ^ex- 
pression, Cela Gutenberg tVy avail pas 
songe. 

En toute bOfme foi, il cruyait fcr- 
mement dans les vcrtus dc. la vis & 
bols et d une imprimcrie pour tow le 
monde. 




Chez Apple, nous crayons aux res- 
Sources dc 1 mdividu d a F&lilion 
personnels. 

Par contre pour crto son atelier, 
Macintosh a fail enmme Gutenberg, il 
s'est associe avec la "LaserWriter? 
nmprimarte & laser d'Apple. A la 
seule difference que si 31 assistants 
se housculent amour d'une presse, 
31 Macintosh relics par AppleTalk §e 
partagent aisfiment une LaserWriter. 

Mais, malgrfi son million d'octcts dc 
mtmoire morte (extension LaserWriter 
Phis) ctsa rCsoluiiun du: 130 pointy in), 
la LaserWriter ne Sfttait qu'une version 



fegfcrenient amMtorfee de la presse en 
boll sans la puissance et les capacilfe 
graphiques de Macintosh Plus. 




p\p;ik' ('uinpiittT fruvx v 



■ 

aura pas le dernier mot 



Cest-a-dire, un mega-octet de 
memoire extensile i 4 mega-octets, 
un nouveau lectcur dc disquc interne 
double face 80QK et en option un (lis- 
que dur de 20 me^a-uiieb, ce uui 
pernio! dc stocker ties milliers de 
pages de documents. 

Et comme toujours* Macintosh Plus 
met & votre disposition tons ses fa mem 
outfc de bureau, puur umua T tulku 
rem odder le texte, choisir les carac- 
teres. mflanger texte et dessin. etc. 



MtttDrttu 1 



Au commencement de ['edition, 
i] y a l'fimture: avec des logiaels de 
traitement dc tcxtc commc MaeWritc, 
Word on Writer Plus, le vrai probleme 

MattMaktr 



Le texte si brillstnt soit-il ne snltit 
pas. Avec MacPaint et MaiDraw pour 
illustrcr, tracer des schemas et des 
riessins techniques, definir des cadres, 
avec un logirid comme Page Maker 
pour organiser et mettre en page, vos 
rapports dentreprlst;, vusfonimlair©, 
vos manuek votre journal interne, 
pour hp titer qu'eux, laisseront de vous 
uue excellente impression, Et vous 
pourrez toujours tout modifier, y 
compris a la derniere minute! 





Hour Apple, il n'y a pas rip penis 
et de grands forivains, de litterature 
de bureau et de literature tout court : 
toui le monde esi loge a la meme 
enseigne, celle de k quality. 

Avec la LaserWriter line impression 
impeccable est a. la portee de tous. 
Elle vous propose en effet onze 
families de typographies (extension 
LaserWriter Plus) h imprimc sur papier, 
snr caique nil snr transparent!? Pt 
fburnit des documents de qualite 
bromure. 

Lam Wriitr 



Et si vous voulez vraiment faire 
les choses en grand. Macintosh peut 
aussi se connecter directs ment a une 
phoiocuniposeuse duiiprimtrfe. 




Cn fait, Apple nc vous offrc ricn 
de plus que votre irnprimeur, satrt 
que vuu& u'aurfcz unilitjutriiMil plus 
besoin de luL 

Desormais, e'est vous, rediieur, 
qui cprouvcrcz la sensation dc 
Gutenberg il y a 436 ans lorsqu il 
cuuteiuph sun premier doiuiiieul 

C T cst ainsi quApplc vous offrc 1c 
meilleur dc vous-meme. 











ft 


h 




* ^ 




Apple 



Z.A. di Coitrtabwuf. tt-f> 131. MQ+i L« Litis Cede*. 



Mise En Page 

Georges Zwingelstein 



Vqus avcz sans doutc rcmarquc" que, 
lorsqu'une application ouvre un nnu- 
vcau document, sou fcuuiat d'iiupies- 
sion initial est rarement celui souhaite* 
(jl s'agil general cmeni. du formal 'Leure 
americaine 1 ). Ayant couvent oublie" de 
crtoisir immetiiatemeiit le format A4, 
noua avona porfois dQ rcfairc iotalcmcnt 

la mise ea page d'un texte, le format 
'Lcttrc amiricainc' dtant plus court que 
le format 'Lettre A4". 

Nous avons done decide" rfe nous artaquer 
6U. piubftuic, avtx L'aidc tJc MjvbBwi: c: 
REdk. La solution en fin de compte est 

assez simple : 

■ dans le document ImageWrlter ( ou 
LaserWriter) se trouvent trois res- 
sources tie type trec\ i>e^ trentre- 
ellcs one 2a mcme longueur que le 
Trim Record* utilise" par la plupart des 
routines du 'Printing Manager" (la troi- 
si£me conrient les dimensions et noms 
des dirrdrenis formais de papier) ; 
* h resource numero 1 contient 

'Print Record' utilise pour aTficher le 
dialog du 'Job', e'est-a-dire la quality 
depression, etc. Ceiui-ci ne pose pas 



imaq GLLinter 



y2Z 



Popier 



® Tormot 04 

O rormar us 



O Ultra us 
OLeqai us 

OPapi^f infrirmatiniiR 

Orientation Effets sofcciauH : U Portrait ajuste 

□ deduction 50 % 

□ Pas de saul Uy Liaye 



od 

[Annular] 



LaserWriter 

Topier : Q Lettre americaine ® Tormot FH 
O Legal omenta. n Q format D5 

orientation: (I) portrait Q Poysage 
M SUDstituer les caracteres f □ nniuort r 



Reduire 
□u 

Hfjranitir 



[flnrtulgr] 



de probteme puisqu'il est enregistre zi 
chaquc utilisation ; 

* la res source numdro conticnt Ic 
'Prinl Rerorri' qui nous inte"rexse : 
celui u*u dialogue Uu style (Fujjiiul 
d'irapregsion, orientation, etc.) qui, lui, 
nest pas modififi mais est utilise par 
Implication afin de connaitre la taille 
d une page dans le nouveau aocumem. 



La mini-application proposee ici ne fait 
que riiajgci cctte j'e&sourcc, s'en servlr 
pour afficher le dialngiif 1 du style 
enfin enreglsirer le rdsuiiau, mtxlifig par 
les selections dans le dialogue, en 
remDlacant lancienne ressource. 





Source 'Mcp.Asm' 

* *********** * ± # * * * i + * 

* Fi^hl f*r *Mt no ofi Page . hn.ni' 



j H-mlif i<& 1 a c(2dduicc c o ni * n a n t 

[ t c rmat du pispieci vt IchlulIuh 
; etc J 

; G, ZwinijelsCeln 



Include 


PrEqu - Tut- 




.■;?.;•.; 


_InitGraf 


SA86E 


.TRAP 


_Tn ttFnnt .1 


SAflFE 


_ TP IP 








In LtHindDvn 




. TRAP 






f "RfiP 


Us 1'. 1 uga 




. J Hflf 




& Ay L'L" 


.TRAP 


InitCursor 


:A:: '. 


.TRAP 


GetResource 




.TRAP 


HMoPurge 


&A(i4A 


.TRAP 


ChangEciResource 




.TRAP 


_WriteReJsource 




.TRAP 






.TBAD 




? A T C 










6c tE) Item 




,7J\FlF 


5C LDlLCia 




t TKflF 


Ptr.a L it: 


ir.a Hi 


» TKftf 






. TRAP 


f r arneRo u nrfRect 





::-;A? 

.7 RAP 
.TRAP 
.TRAP 
TRAP 
THAP 



3 SiWfWl j liJijw 

Restiror 
*HLoc): 
.:.c 

PacarnText 
_StouAIert: 



*ft9fti 



nk&uttcn 
numToStrini] 

. K,\C PC 
!!OVC 



EQLT 



ItP) 



Pa CKC* XX ff h t:m i oar r t n g. r JtvAl 

torn 



: Proafarjw -- 

novn 
J5B 



3 La lo-q 



M0VE.8 C3P} *,Ot> 



3SR 
RTS 



: Initialise lea 'Managers' 



4 iA5) 



_rxu*Jisvaiita 
_InitWIndow* 

CLR.L -(SP> 

InitDialooi 
_T£Iatt 



; uialo-gue "~ 

; Airicne is ctiaiogue iajj^lu 

j DialoqEU et retourne vrai si Boutan 

: 'OK' Chaisi, £aux sinon. 

; T r R Dautan 1 OK* dolt itre le premier 

■ --.-t i a r- du dialoaue. 

/ II do y r Bfl M<jir'» wn ph 1l feme 

,'VdliJUlCS JtJTES i* pile : 

:DialaqID EQU 8 

rlteaiHit EQU 10 

:Vartabiea locales : 

.□lal^Ptr EQU -4 



Dialog 



LINK A6 r l-lS 

CLR.L -iSP] 

MOUP 8IA6>.-ISP> 

CLB.T - (SJ>» 

MWE.! J-1„-f^51 

_e*tw#i*Bi--iaa 

HOVE.L 



40 
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; Initialise ProePtr du Userltein vers 
! Procedure qui entonre le bouton par 
; defaut, 

HOVE.L -4 , - <S*J 

MOVB §3, (CP) 

PEA -6|Afi> 

PEA -llHAbJ 
JSttDltMM. 

MDVE.L -4{A6),-(5P) 
MOVE #3,-(SP) 
MOVE -G{AGJ,-(SP1 

PEA OutLineButton 

n^i -misfit 

ModolLiQ-tiji JOt^CTld urto action 

CLR.L -t3F) 
fiA 10 (AS} 

_H5daLPX*±0g 

CMP *ofcButton,lt)i:A61 
SEQ 101A6) 

rFin du dialog 

HtJVfi.L -MAS), -{IP] 

mJV£.L 1^1-, AG 
ADDQ * L tZfSP 

JMP (AO J 



.- Enxoure Le bouton car defaiit tie 



mniiRrei 1) 

', r Q r i f i» - <i c d*na La pi 

itcTifo SflU 

variables Locales ; 

EUU 



Type 



EQU 

EQU 



r T-40=i *1fi-ifl 



-S+ItentHandLe 



Out Line Button 

LINK AG.t-14 

Mnup r. TrVfafis r -(sPl 

DEA -3«A6» 

PEA -fi<A«) 

FBA -HIM) 

MOVE #J P - (SP1 

PEA -14 [ft*) 

MOVE i-4,-(SPi 

MOVE #-4,-tSPl 

pea -nui) 

hove *ie,-UPj 

MOVE fie, tsv} 

UNLK Ab 
M0VE.L (SPI+,A0 

ADI^.L |6 f SP 

JMP (AO) 

* G«r P^faii - *- > 

i <\f£icho I* ^i^loq d* la mis* *n p*<j* 

; if ai. liable lu^-alc 



hPrintRec 



EQU 



GctDtfoult 

LINK 
J5R 



Afjy JhFiItitSct 

ftecup^re ressoLr.ce de type ^PHEC' du 



r fichiet ImaaeWriter. 

CLR.L -tfiffj 
HOVE . L * 'prtEC'j- 
MOV£ | A, - {SP1 

muvk.l + f ni'ri[itKec fftbi 

SHE (1 
j 'Frrpnr r.harcrftment reasouirce- 
movc #1, (cn 

CI P. -C3PJ 



BRA eio 

♦ Prat^ae la reaaojree *PREC' 
; Valide la resaciiTce *PRK* 

CLR. 9 - < = P) 

r Affictie le dialog de la mise en paije 
ri_a.B -(so; 

MOVE . L htclntUca (AfiJ , - SSP] 
JSR FEOtlDloloq 

hovcd (aii T f no 
nay i^y 
; Marque la res source corane modiflee 

MOVE.L h&i-Imfiie iAi) ,-(ED) 
CLIt -(flP) 

_Kaalrxor 

fKJVt; [5i"J+rLJU 

; firreur fonctlon ChanaedRessource 
- cril s^nRt.tfi prntpopp en Rftriture qu 



LPIF 
BEG 
CHP 

B£Q 
C>SP 
BEO 



P-45 r :C 
S3 

US 



MOVE #1D,H5P) 

HOVE DOj-iSPt 

JSR StopRlert 
BRA 



02 



JSR 
3RA 



t£ f -|5P3 

StopAIert 
&9 



; Le fichier est verrouilte. 

«3 MOVE #3 r -tGPj 

CLR - i3P} 

JSH S LypA Lc i L 

; Dis£jiiette protegee en heritors 



CLR 
JSP 

or* 



14, -E^PI 
P4 



; Lnreglstre la ressource 
@7 MOVE.L hPrlntRec(AG} 

_K ritflftti aurc* 

rr.o - f fiU) 

HOVE (C&t+,D0 

MOVE ♦3 J -(3P> 
HUVJ: D0 f -(5P) 

jsr JstopAien 
i Oebloque la ressource 

HE oaf g* 



tSP) 



eio 



J3S 

U.WLK 
KTi 



jiu|jAlei.L 

A£f£crte la c e: : d'ii> 12s ^vel 
measfigti ctant I'lP eat dans la pile 
et Ho de I'erreur [31 non nuij 
Variables dans la pile 
ErrNum E-QU 8 

StcTB EQU 10 

Vartahlfta localfta 

5 top-flic rt. 

LIHK ftfi f #-lC 

rtUVt-L A^-lift 

HOVE B|A&],DCi 



EaT*L Du 

LEA -16(A6) f A0 

BRA @2 

S3- r Chains de lengutue nullc 

MOVC.D *C» -IfiiAG} 

@2 CLR.L - ISPI 

WUVJL 1AI>J 

KOVE.L |SPj+,A2 

MOVE.L A2,Au 
BLoclt 

r Innitc Id tcHte -a . . - = l^Urtc 

HUVE,L (A2| r -tSP) 

PEA -i*(*fil 

CLR,L -ISPJ 

CLR.L -(SPJ 

, ca|.j] iquouL 1 " aiEiiuiuiJ-lt: 

CLR -{spy 

MOVE #128 f -(5Pl 

CLR.L -i£P) 

«OVK.L A3 , AO 



Retaur 



fSOVE.L 

WOVE . L 
ADDfl,L 



(SP14 .A2 
ftfi 

(e&l A, ag 
tt,sp 



F/crt/cr 'Mcp.R' 



* Hessources pour le programme 
1 Mise en Page 



APDLWVAP 

T * jj-t: MiAP - 31R 

wise en i-age - b. iwingeisnein 

Type BKDL 

,128(32) 
JIMP 

itm 

n 1 7R 

FRCP 
ft PPL U 

Type icm = GNRL 



0S1C5<3DU' 
050S7FOO 

: ~ r yv y.~j- 

07rrrroo 
prrrrrrr 
rrrrrrrfl 
t r t tttta 



00 00 On go 
01 3E1B00 
0*DQQ100 

35C---: 1 

U4 OBU1UU 

e&oooooe 

FFFFFFF8 

nTFPFHfiO 
D7FFFF00 
07FFFFOO 

rrrFrrrr 
trrrrrrrfi 



G 7FPI70 Hifl 

jc :< 

Rooooooe 
eooGOoai 

07FFC0OC 
fiiFFFrnn 

07PFPFOr> 

rrFrrrru 
rrrrrrrr 

t r ttts 



C^OOOQOO 
(J4J-EO1C0 

9D00OG4F 

eooooooe 

FFFFFFF8 

07FfEO00 
ftlFFF^nill 

(J7FFFF0D 

rrrrFrrr 
rrrrrrFF 
f rrrrrro 
rttt iitu 
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* fenetrc d'alerte si erreur systeme 
Type ALRT 

,128 
SO 50 250 450 

* DITL d« la ferLfttie U h ak.tc 
Tji/c DTTI* 

, 1ZB 

4 

Button 

170 150 190 250 
OK 

€0 20 1*0 3fl0 

■ message d h erreur de la jrenetrej 
craierte 

Type STR 

Le document lire geWr iter p. 1 est pasj 
compatible avec cettej 
application. 



Dfcsoli; la dlaqucTEc eat vcrr&uiilcc .] 

Lea [juuvcIIn nln-Liwi TT 
ne peuvent etre enregiatrftea, 

Deaole: le document IreageWrlter est] 
veccoullle. Lea nouvellea ++ 

selections ne peuvent ctrej 
enreuistrees . 

ftrc cure gia t ricii 4 * 
Veulllei J£ jjt fcy= la ij. 1 a ^uc1_ Lc tJizJ 

aemarraqe et recomnencei. 



Deaole, Une erreur Linprevje. est] 
survenue lors dej 
1 'enreaistiement ■++ 



des nouvelles selections. Erreur No : 
Une erreur svst&ine intcrev^e est] 

4 Dialog dan inn t e'S left* 
Type DLOC 
,126 

dialog 

Visible NoGoAway 

?d3oJtProcb [alert bo* or ff,0daij 
dialog box] 



12$ 

« TiTTT. dn r^aTfirj H^fl Itnf nicHnm 
Typo DITL 
,123 

12 

Button 

210 SO 290 -BO 
OK 

Button 

270 260 290 380 
Annul »r 

fl 6 

z>1o.l Lz.ex\ DlsaEueU 

Cette application pennet de mo-dUierJ 
1« format d*±Eipreaslonf 
prfe-etabli ++ 

utilise dana la olupatt desj 

arpi i cations f vo lr 1' article! 

*u 'fflHSit d 1 iniprp* " ion 1 Hn J 
ftohiorll pax 1ft* nftUVft^UiJ 

d'CkUElCflt j , 

at-atlcrlEXi EUsatiictf 

SI voua clique! sur :a case 'WK'J 



cette applies i- lan affliilicttf ++ 
, e Dialogue au lormaw a" Impress lunj 

pre-etaDii [contenu aans ic ++ 
document Image/Writer de la rflsqiiettej 

ae demarcate) : 

statieText Disabled 
i?n an 140 4R7 

f flilWt kabitual 
:L., j:r SUE 1ft oaoe 1 OK ' po uirj 

lormaL r-r 
d" liHpressicn pre-etcDll on sur laf 

case 'Annuier' pour copsetverj 
i 'aneien* 

StaticText Disabled 
■ qO S 2 30 4B2 

".:■■.-!«■= i.at«EM Tit c*tl t #J 
application, allquft* -i-i- 

it at. I ClGK U Disabled 
2W s /feu ^s/ 

» G. Zwingelstein et Poin l a - lyob 



Fichier 'MepJob" 



A Hep. flam lkcc lqit: 

LINK Mep.LinJc Exec Edit 

RKAKea Hep.H Finder Edit 



Fichier 'Mep.Link' 



Wep 



Plus de 24 points 
avec MacWrite 

Mais oui c r act pof.r.ii)!a. . . H suffit pour cela de 
disposer d ue frdkeur de ftebloi - FEdit par 
txemplc - de qitelques miauies pour les 
rnanipulali on £> 

Vojci la methods : 

• lapez uu limn - par temple 'MOT* - ct 
donuez-lui la la ilk 24 poini£ ; 

• ^nregittrei p^lil h.-h^nr ainci mm.r i"ui* ; 

- .; ■ rcirc fdiicur dc Fichicrs, ^isuaEi5c£ Ic 

conteau du documeni : oo voit apparairje le 
4 MOT' : 

- Ic aiAicmc uUct fl^ifei 'MOT iradiquc ]a 

Uille du lexle (ici SIS pour 24 en decimal) ; 

• ironphnez la val«ir par M en decimal) : 

- loraquc Ton Appclera & iiouvcau Sc fichier 



dcpuis MacWrtte, "MOT" sera aesormais 

affirh^ pn 4R p-ii r,K. il exl &QQC possible de 
Ic ickctionncr dc la per cc qua Von. v*ui 1 

U place. 

Ccttc iu£ihcrdc tutoriac nussi le& laillee d* 
caracieres riors uomies" comine, par EAcnipIc, 

MacPaint 
et FullPaint 

Si voui macnicniE U t-ouche Option anfe-nc^* 
lors du trace d'une surface remplfe (recLan>jlK p 
nval). le hrrrl dc la surface ne sera pas tracts. 

5i vous voulei louiemeni remplaccr MatFaiui 
par FullPaint. au poitt qu^iri double die sui 

una image MacPaint ouvre FutlPainT . il fanr : 



changor PANT en MNPT ^an£ la ressotiFrp 
B-NDL FuHPaluL, uUli^t Lift fej fnfur fnutivn* 

de ResEdil pour effecuier la meme modilicaUon 

et maltre en fonctioti I? bit de Ihison Apr^s 
avuir qujii£ RcaEdiij cfPcvtugi uo chaag^iRcnl 
de dossier pour Taire reconaaiire au Bureau la 
mndiftraliftTi riu type. voila... 

NJJdsX. : en practdani <te ceue fagon, un 
rfsiuhi* r\if •cur un rinrionpni FuUPainl £r£& QV&C 
tw.c ret JiOfi ticm m&dlfidc n'duYt-trct e^jj Icdit 

documem. Vfte autre soiuiwn, plus simple et 
m/ibx dpfbiiiive. eattsixte d charger le document 
MacPaint dcpuis FullP&int, et demand a r 

bnregistrer sous... le mime /torn. 



La memoire du +... 

...pcul dirt vimaliaft si vous appuycz aur It 

louche "1W LbKRUPT" piac^c sur le coi^ 
Qaurhp. du Macintosh Plus : 

• le "prompt' > apparaii ; 

• tape7.DM 100Q;" 

• to costonu dc La memoir*,, da radrs^a $1000 
a J105F s afTlchc. 

J] est ausE-i possible de modifier la cor.Lenu de la 
memoire (auendon, danger.,.) cb tapani "SJVT, 
l adresse (en heia) el la ou tes valeurs & placer a 

porlir de cette adrasea. 

Pour reprendre le cours normal de vos aeuvites, 

lapel 'G\ 
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Tempo 



Depuis ires Jongiemps, nous rcvions d un 
accejHfiire tk bureau qui permeurah d'enregitirer 
lout un troitc-ment clavicr/'aouris tL dc lc 

rapp^iet avec une simple comtJlnaison ct 
touches. II y a bien eu MacTracks. mais eel 

accoG&oLro ns oa&cuit do faire la bomba. Augell 

eilons-nous ravls de voir deoarquer Tempo, 
laccessoire de bureau pour la creation et 

I'uulieaiiQn do macro inetruciiooB- 

Tempo perm d'eBreeistrer, en temps reel ou en 
mode programnulian, tout* une sequence 
d'utilisa-Liuu du claYiei et dc la auwia, Celle 
sequence peui 6tre ensuite modified a toisir, 

puis «x£cut& cur 1'appel dVaa louche a,£soci£e a 
la tuinJit Currvwinilz, 

QuelQues critiques 

tn I ait, une rois active, i empo se toge a droite 
dfl la harre de.it mftniiR, Aiftec If. symbol a 
''Com manic". D'oi) Unc premiere iriCOmpdti- 

bilite avec les logiciels qui, tel fcxeel, 

r.pmpl i r wnf cull* lignc. Fn fail, rimmmpali- 
Vaiit£ vrent iei dExccl, pui&que IwL I? moadc 
sail imiwenaat que je$ appiicauons drive iu 
laisser une place dans la bane des menus, pour 
ua eVentuel acce&&oir* juslemecl, Curtains 
[□glclels Ton cquhub-, ieis» ReadySetGo, 
Switcher ou ThinkTank. soot aller^iques a 

Tempo : feJicilane ici ['initiative da 
I'mipuruiLcuf qui fuurnii une premiere lisle de 
ces allersties. Avec PageMaker, Tempo cxiae 

I'orjginal, ne permetlattl mime pas qu'on 
rLiiUmluiic wulcjueuL luis de Id. n & if^atjui! lie 

copyri£hL linfin, Tempo est vile d£bord£ quand 

on nriiis,? tec possibility lefi pliiE int^rpcraiiieE 
tcllcs que la programmaticm dc pduaca ou dc 

Doucies ; il athche aiors des messages 

trifalemenl incoherent ^1 ce mmnnrlf. 
bizfljrcmcnL 

UueJQues avail Uices 

Tempo est en rait un ouul ideal pour accompiir 
sans difficult^ et sans risque dcrrcur des actions 

repatilivac simp Lee. Dane ca cae d'aillaurs, 
ujGujc les fuudjuDS a van^ei (pauses* bu-ut liis 
ct lesls) fonclionnent de facon satis fa isante. 
Tempo est vraiment utila, pour prendre trotc 
examples : 

* eomme g1o«aire pour MacWrite ; 

des ehangements de police et de style 

* |X)UJ fatililti avec Pagcuidkei lijc upei atiuii 

ennuycusc telle que le choix caracteres. 

Une bizoTTcrve 

Celle derai£re* utilisation fait toucher du doigi 
uuc |J4J ljl-uJ til i Lc dc Tciiipu. 3up|juauiia gu^. 
dans une fen£tre de dialogue, on fasse deTder une 

LiEt^ Cpur «*?niple T polic-Jt de ciract^rQE), 
jjuuj Ulpuvci uclZc que 1'uu vcuL, cl qu^uu Id 

seiectLonne. tempo n emegistre ators pas la 

pnlir/\ rkikip, mnis Ip mnuvpnie-nt rip la ^fHi'riv 
Lc rcsuluit cat quc^ lors dc rutiijiaiion, \a 

police saiectionriee par la macro depend de la 
paction aDl^rieur*, c'eet^a^lire d* h c^lertion 
prfc&fofltfc Foui dUC fmuLj,. j| fdLit dire que 

nous ne voyons pas lies Uiec commem le 

programme] i r d£ fa rhnse aurait pa faire 
autre mcnL 



Une amice resoul ce probleme : quand on dott 
faire H^fiW imp litfe Hatie imp. r^ri^.rr^, il fas- it 
d'Abord rtvenir prtmicf £ Kmcm dc la Liatc ct 
le seiectionner, puis pratiquer la seieeiion 
vmilu^. 

CutidiruuLi 

Ccat fmiticiTtcDL un pro4uii qui oomporte dc-s 

poteaiiaiiies in teres sanies mais qui, en dehors 
des exemples simples dapplicalion presented 

oi des cue, risquo do dc-;-?'-"OLr. P»ul fa.ut-tl 

auenare une procnaJne version 7 

CrAi par Ajfitatv Soflwm fBaukkr, CelpreAv) 
ff vcpidu par Alpha Syntimc* oycc unz 
documentation en ftzmcais. 

G 




dMac III 



Ce produiL ma]£re son nam el la compaiifaliti 
dBase III qu'il acmblc impliquor ct qu'il 
revendique dailieurs dans sa puulicite, ne 
provieut pas d'Ashton Tate, Ce n'est pas non 

plus un -clone logiciel, puisqu'il na touxna pas 
tur le iTiensc rrtiiiiricl que le lugiciel qu'il nuiie. 
Son obiectif est clair : domier aux utilisateurs 

du Macintosh la poesibiliie 1 la foie de 
[dcupdita; Oca fi tUtii dBase dfvcEu^jda sui IBM 

PDXT, et de retrouver la svntaxe et le 

vorabulaire dBas^ auqti^I ils soct d^ji 
fdiiiiLidi j*£a. 

Ci? pr^gTamme donn^ra i c*ux qui n# 
c^DnaisstDt p^s c acute tc iiian^juc dc 

conviviaiite caractense de L I15M cl de dUase 
(par rapport a fee* Bwi a ii ntltf J sur Ma^) Un* 
qggcz boaco Dompr4h«mion par compamison 

- de la grande conviviaiiu! du Mac- 

La documentation cat tulicremcat frDHcis6c J 

mais Ee travail a eie fait un peu vile, ce qui 
donne parfois jmqu'l 10 faiitej? par page, enlre 
U frafljaiflj J 'orthography &t La ponotualion. 

pourquoi done les ediieurs ei iraponateurs 
fractals ont-ils taot tendance a sous-esiimer 

rimporuncc d'uca documanlallon bite finis 7 

La premiere consequence que Ton pent en tirer 

4'ue eeea: da dMac QI asi qua cs produit . vu s.on 

■imblLLuta de reabemDler a dBase, ne pern 
exploiter pleiuement le craphisme/sourig du 

Mac Deuxii itiemtot, il eel da n-otra da voir da 
AULitigucj uiic id tujijpdLibi'iEte avec dBiue ttt 
n'est en aucun cas totale : les caracteres 

.gr^phiqu^E de 1TBM PC, ainsi qua las caraclflras 
Kxcatut*, uc k letupferenL pus Lsla quels. Le* 
fichiers m£mo nc sont pas reeuperables non 
plus AJoutonc que PC Diffusion International 
a HjamiCLctc tfffvciLjr ruiiliiaitut de 
[imitations, el promet de r£soudre ces 

probl£m?E. r^nfin, la definition da la structure 
d'un n^kici cbt lcIIc dBd.se II, eu nun pan 
celle de dBase UL 

En wQvIuiioii d'uuc diidlyst; |jjpitle t (JisiJtJi que 

luLiUsateur de dBase ne sera pas d£pays£ - 
ccnitratremenr an Marjiphile. impenitent — et. 
quau prut dc ccrtaiocs inodiifiCJliou& l it pouiid. 

recuperer ses ticniera dBase IBM ; notons au 

pat«D.fv qtift ri^n nVst dit cur la ricup^raUon de 
fichiers Apple II, cc qui pouttdul dctLdit duui 
etre possible saos dildcuJte suppLementaire, 11 
sera it int^ressanl de voir comment sera Ip (Utaae 
Mac d* Ash-ton Tate, qui dcrra.it dtrc dJipooiblc 



en France en d^but 87. Contrairement 1 dMac 

III, dHafia Mac, compatible av«c dDa&c- ttl, doit 
imiir en fin dannee; e'esi une base de doan6e 
rehtionnelle complete, permeitani dbuvrir 36 
fichiers a la foie, un produit coDeurraai d'Orr>niR; 
III r dc 4^ fr " > DiiVicj-iiiou ct du plua icttal 

KLhLLA de Borland, lui aussi bientoi 
dt^onihle en fran^afs 

PC Diffusion Iniernaiwnal, V bis, rue Uasimir 
Pin A. QWnfi Ntuitty Prht IQSOFHT 

(3 



FullPaint 



C'est bien simple : si vous aimez MacPaint, 

ITMIS adorprp.7 Fill I Paint Vnin flnfin prn- 
gfainmc totalcmcnt compatible avec MacPaint 
(c'etait la momdre des choses \), et qui permet 

rip faiw tnrit ra. qnp. fait Mar.Paint, plllfi " 

• travaiUer sur des images en pi em ecran ; 

a avoir ptiisirairK HorumftnT.? niiverK A la fois ■ 
' offoctiicT do? rotations ct tr a ns format! one 

diverses ; 

* d£placer ou cache r les out ils et les motifs : 

* utilizer des regies at das pointourQ do 

position ; 

• caller depuis TAIbum des documents plus 

grands qua La fanctra ; 
» ttuprimer avet I'lmagcWj itci daua les 
formais 50%, 100%. 200% et m% j 

- unpHmo r avec la LaierWriter juiqu'i A 00%. 

Seul inconvenient majeur : il ne se charge pas 
sulomatiquemeat quand on cliqua darts un 
document MacPaint. Et enccre > la soludoa a ce 
probleme vous est proposee dans la rubrique 

MacAstuaae. . . 

Enfin,4 I'aidedu 'driver' ColorPrint disponihle 
aur la disquett« FuUPalai r vous pouu-ez 
iiupiiuici dtb Uuvuiueiita FullFaim en ujuIcui, 
avec de nombreuses imprimantes, dont, bien 

cniendu les Image Writer I (on pein y rrwrtre Hps 
j ubdus dc lAjulcui ) ct II 1 Epsoii JX-BO^ Caoon 1 
jetd T encre ou Scribe, pour ne citer que les plus 

Conclusion 

Uu jjiu-duil que uuua i ccuiaiiuitduui viguu- 

reusement et sans reserve, ce qui est h£las un 

plainir imp raT» 

Diffuse par Am Harbor SoffworkS, m 1 }! $, 
Staff Strtet. Ann Harbor, Ml dSiflJ. USA 
Ytr Atari US. 

a 



Pom's n° 27 



43 




Uans ce numfiro. Horn's propose deux 
prngnmm^s effectuant & peu pres Je£ 
racmca tachcs, LVn fonctionnc sur Ics 

Apple (f $ l auue - celui qui correspond a 
ect article dc presentation - sur les 
Macintosh ; Ice deux ulilisanl U Minitel. 
Afixj dc iic p&s lljcLLlc Ucua Tub la oicmc 

chose dans la revue, il nous a sembie 

pr£farah!e Hp placer les gifn^raliEe's sur le 
Minitcl ainai <juc lea problcmcs qui lui 

sum lies dans un article eommun que vous 
pourrcz trouvcr. si cela vous intfresse. 

page 53. 

Un schema vous tndique Le cablage 

n£ces£aire 1 la realisation, ires simple 
(nous joiguous un petit dcssui qui donnc 
la correspondance entre les transistors sur 
schema ft! teiir apparency, physique, re 
qui rend le montage accessible & tous), de 

r'iELerface" reliant le Minitel au 
Macintosh ou au Macintosh plus. Ce 

dernier utilise une fiche 'Mlni-DIN' qui 
n'cst pas encore en vente partoui ; si vous 

avez des problemes pour vous en procurer 
une. [I vous sera toujours possible 

d'employer la solution Macintosh 128 ou 
5l2Ko avee, tn plus, un adaptatcur 
Mac/MacPius [VB9 femeUe/Mini-DIN 
male) T 'autre solution ennsiste fin I'achat 
d'une "interface" du commerce. 

Le programme cmploie plusicurs menus- ' t 
1c uicjju 'Mode' est le principal . Void le 
premier de ces modes de fonclionnement : 



Mod9 



Consultation 
Copie d'ecran 
Preparation/enuoi 



Ce mode sera utilise 1 pour *engranger* 
rapidement lea informations qui arrivent 

sur recran du MiniieL Pour cela, u faut 
utiliser le clavier el la souris du Macintosh 
a la place du clavier du Minitel (on ne pern 
pas au change !). Lei wniuismlcii MkiiLri 

(Sommaire, Uuide ,cic.) sont obtcnues 

par l'dclion sur des honioris affiches a 
I'e'cran ; certaincs d enlrc-cllca sont acces- 
sible^ pax des "equivalents clavier" ; 

Envoi detour chariot' ou *EntreV 

Suite 'TdUutdLiu-ii* 

Correction * b ackSpace ' 
Annutatiori 'Anmilatioa' 

(unique men t MaeFlus) 

Le hut du jeu ect done d'enregistrer les 
ccrana ; il faut pour ccla ouvrir un fic'hicr 

sur une dlsquette (on un flisque durj a 
1'aide du menu flchier et de son article : 



^ 

niMuii .. 

ierrtu»r 
Quitter 



Cet article affichc la cdlchre fenetre da 
djuiA du uuiu dc fjchici. CeLlc Uciuifiiv SU 

comportant d'une mamere tour a lait 



classiQiie. ajouter <juelque chose sur le 

tujet ne serait que gichis de papier. 

Lorsquun fichier est ouveru il devieni 
impossible de changer de mode et il en 
sera aiusi jusqu'i ce que le fichicr soit 
ferme. An! mais.,. 




rtireyisiTemepI 



Fermer 

fluillpr 



L'article magisiralement visualise 

ci-desEus permet de mettre en ou hors 
f one-lion rcnrcgisircment, tct-i afki 

ti eviier le storage d ecrans m desirables 

com me. par Exemple. Irs premiers &tm* 
de rannuaire ^lectroniquen II s'egit cn fait 
dc I'equivaictitui; Id tuuche "Pause*" G un 
mafnictophone. 

Lor^que renregistrement est en cours n 
rarticlc 1 En^cgist^cmc:nt , apparait "cochd" 
cl, simultanCment (parrots en ratine 
temps), un 'voyanf s'afllche a cote du 

chonom&tre : 



01 '48" 



.u/F Ttrp n fi 1 1 re mfl n t 



1 QUUUr 



Lcs articles du menu 'Mode 1 icdcviciuicut 
valides : il est possible de chancer de 
modf, nn p.nmre Hr ri/hiitRr un ooiivel 
enregffitremenL 



Chromtmelre 
Deparl nulomatique 



r+ : T nnnphinn nutnmMinufi — 

Harcho 

Mlse A zero 



Le programme propose 1'utilisation 
opiionnelie - d'un enrunumeue dunt le but 
est double : donner une idee du temps 

paste" SUf ua serveur et permettre une 
ddconnexion automatiquc h 1'cxpiration 

dun temps donne. Puisou'il y a 
deconnexinn automatique, il fallail aussi 
une opliocs 11 Dip art automatique". 

Quand cettR r>ption est choisie (article 
'cochd'), le depart automaiique aura lieu 
des que le Minitcl dmcllia u^uelque uliusc, 
Notons que. s'il est possible de rendre a 
tous momenta ceti€ option valid'? ou 
involidc, elk nc fonctiorirjc que lorsqu'un 
flchier est ouvert et renreglsiremenL 
atiLorisc. Si le chronometre clait en fonc* 

lionnemect ou simpUmeni n'etait pas a 
l£i u f 1c pi ciuici Lai aUcic [cyu piuvu^uti a 

sa remilialisaUon. 

Prariquernenf, uns ilmce dV-nregi*- 
Lrcmcnt ctvee depart automatiquc du 

chronoraeire pourrait dettuier ainsi (un 
considere que le Minitel est sous tension) : 



• ouverture d'un nouveau fichicr : 

• auiorisation d'enregistremeni ; 

• demande dc l'option "ddpart auloma* 

Uquei" ; 

• composition du 1 1 (annuaire ^lectro- 
□ique) ; 

- cojiiLcxiou au jtstju poi sflccdon dc 
Tarticie "connexion" du menu 
"Liaison" 

La demiere operation provoque ic declen- 
chemcnt du chronomctre. 



Clii nnoTii^tie 



w^l^pflrt BirtomatlauB 



ODtanneiiian aulomdti(|ue. 



Mar ilIih 
M\is a zero 



La "d&rcruijcxiou dutuiuatiquc" puuija ctic 
uiUe ceux qui ne vculent pas que leurs 
far.Tiirf*^ f^l^phoniqiiR^ atteignprtt rie-5 
aommcts vcrtigincux^ La selection de 
I'drlicle provoque I'dfTichage de la fenCuc 

dc selection sutvante : 



peconneni on amo matique 
ou bout del HI minutes 



OK 



La fenctre propose, par dcTaut, Uois 

minutes ; cect correspond au temps 
pendant lequel ] 'annuaire electro rtique est 

gratuit danE lea zones ou it est acce&eiUe 
par le 11. II est possible de choi&ii uue 

duree ailant de ] a 59 minuies. Une lois le 

choh effecnj^, Tartirle apparaif r.neh£ 
avee, h sa euite, m rappel du □ ombre dc 
ntlinrtifeti 

* le processus at deconnexion du rfiseau 

est pntame denit secondes avant 
I'cHpiratioo du dilut, ccci aHn dc tcnlr 
cumpte de rinenie de Tensemble 
Mac/programme/Minilel (prononccz 

chains fe! emaii-guv, commc dans les 
salons ou Ton cause) ; 

* la deconnexion a lieu lorsque le 
chronomfctre "passe" au temps donn£ : 
si le chronom&tre. n'est pas a z^ro 
loisquc I'uptiuii dtScouncAion 
automatique est demand^ le temps est 
Faussi (on se croirait dans la quatrieme 
dimension ! ), Dc racmc, si on dcincuidc 

un temps de deconnexion inrcneur a la 
valeur cnnrantR du nhronom^tre, la 
oMconnexion sera immediate ; 
- I'upiiuii est uuircpassublc : si la 
deconnexion nest plus desirable, 

selectionner a nouveau TartLcte 
"d^conncxic-o automatique" ou 

demander rarrct du enronometre ; 

* bien que les op Lions "decnnnexion 
automatique" et "depart automatique" 
soicut ludfpeudidutc^ elks sciuul, \w 

plupartdu temps, utiusees de conserve. 
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Firhipr ! TphIp n trnnsmpttrp 



Nombre de caracteres ] | 152 



Enuuyei un unssiaye a un iuiueui" par 1'iotei mediQii e du 

Minitel rcuient generaiement assez cner, cecJ o cause au 

elauior - pas li raiment ergonomlque - et des po«slhfllJ£« 
il'edilion (ineHhtantes). On passe focilement din minutes 

au plus ft entrer un lente eornme celul-cl, L 'option 

■Prppnrnt^nii/Fnurtl" rfn pfAQfAfflmA nrrtpfttA rfftnfi I ft 
numero 27 de nam * autarise una joisie preamble et 

aisee (couper, Culler.,.) oe temes qui pourrom etre par la 
suite (du ImmMnlementl transmls au serueur. et cecl 

ropidcmcnt (un pcu plus d une minute pour cc tents). Le 
programme permet Dlen sQr la sauuegarae, le 
chargement et la modification das leales trees a pnrtlr 

do -cello option, male aussi Lb c bargemen t da tewtst miG 
idu tut fli'uc ri'lmuui Ik qutrl editem de tenle] 



— 1 o 

Vvv — HC )2^^ rtw 




ri- r; 




: ; 0> 

■ .■■.T.-.r 



^ETipasan^s n«»siiif« : 2 trusters Z riittt*rw« fl* i « iSKft 



rhmnnmntre 



wlle^di ( outomotiquc 

yuecormeWEin automauque /y 



Hits a 2ero 



Permet la mice en maiEn* fin rhrminm£tre 
ct rcmpHc lc mcmc role que le bouton 
IvJ/A" plate" dans la fcn&Lre fceui 
fonctionne quelle que soil la valeur 
courante du ehronometre). Une fnis 
36lcoiiotui5, l 1 article "March©" deviant 
loglguemenfAnti", CLimpClil \uyaoV 
s'amche enlre les boutons l lwA" et '0'. 




0T48 



Ehronomotro 



✓depart nutamoiique 
v'DecDnnemon autcmalique IV 

Arret 



Mine a zero 



Force a a£ro lc chronomitre sons I'EiiTcter. 
II fonciionne commc le buutun '0' plate" a 
cote" dans la Fenetre. 



ueconnemon 
T 2QQ b*K(d* 



Lc premier article du menu "Liaison" est 

utilise pour connecce Ee MLoJiel au reseau, 
apres avoir fait le 1 1. le 36 15, etc. 



Liaison 



uecormemon 



1 JGfl bauds 

baud* 



C'est le Contra ire, e'est- c-di rc la 
ddwuucAiuu ujuipletc du tfecau. 

Attention, le bouton "Co line* ion/ Fin" 
situd" dans la fcuctie n'a pas la, ui^iuc 



fonctiun que i ci llj lIlIcs du menu 
"Liaison" ; il sera utilise px)ur passer, par 

exemple, du niveau serveur an niveau 

Four conciurc le 'ruode d'emplot 1 du 
rnrvip. "SrfwVagfi", {] ennvient de signaler 
qu'un *fcfc*' juste apres utie commande 
signific qu'cllc u*a pu eLit jjiiac en 
compte ; la demande doit e tre reiieree. 



MflflR 



^Consultation 



Copie d'ecran 
Preparation/eruiQi 



1 £ tnnde *'mn<;i]Ttftrifirr" t><zt p.mplnyf. pnnr 
renvoyer £ur le Mmite] les informations 
accumuldcs i uajiii Ju mudc "Stockdgc". 

La feneire contient les Doutoas ae 

minmanrT^ avnti qn'itnp. bldkflrion ieiir Ip 
nombre de pages dens lc document 
acLuellemeet ouven ei le numfiro de la 
page co hi ante. 



• « # 



* < . 



• > • 



17/18 pages 




rt?rmer 

Quitter 



FcrxucL d'uuviii uu ficlucf, uaiqucoicnt 

s'il a eta cree a parttr mode "stoctage" 

Une fois le fichier on vert, les boutons dp 
connnandca soat rendus validcs cn 
ronctlon du nombre de pages du 
rifjcumenL Lenr signification : 



■ * 

■ > 
• » 

■ »l 



premiere psge du doeument 

dix pages en amere 

uiic page cii OLii£ic 
page Euivatite 

dix pages enavani 
demlfcre page du documeuL 



11 est ausei possible de passer a la page 
suiviuitc dvee tea toudica ^itto-ui-choiioi" 

et "enirtc". 

Note : afin d'dviter la confusion dee 
cwaois, un 'vide* t*elui du Miiiitcl ivant 

chaque changemenE de page, sauf 

lorsqu'on pa&5e & la page snivante 



1200 hands 



La Vitesse de transmission par defaut vers 

le Minitel est de 1200 bauds ■ sl votre 
"mirii-tcniiinar lc pcrmct, il cat possible 
de passer a 4S00 Dauds, ce qui donne un 
plus grand confnrt a la consultation, Bien 
que co 3a no pre" scale pas beaucoup 
(I'initJrSi, un peut diac^er tie Vitesse a tuut 
moment 

Alleutioii ; dc manicro gdn£ralc lorsquc 

vous utilise z ce programme, et sunout si 
vous ndlisp/ Ip. finangpm^nt rie Vitesse de 
trangaiisaion, il faut que le Minitel soit 
relie* au Matlulijsh, et iOU5 tensiou. Ccci 
garanti lutilisatioc ae vitesses idendques 
par les deux apparri)? 
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Mode 



Mode 



Stockags 

consultation 



^Copie d en ait 



Preparation/cnuol 



I hFORnRT I QUE <MflTtRIEL ET 
Founni hires qiier5> 



flf^t Ce-n.pLitfcr- 












iEIS 




HI 


22 00 


-ub* nVicu 




Ml 






Rc-D(t CoADUtir 











3 ax* I <SRJ 
cw flu abac 



C 1) fi^ 2« 27 27 



* plus 0" mrgnwHiwis 

tu|jei I* m" crwi*l puis * Ef*JO« 

|~1 Rci;cftC>gn dc<D$>£iN; dtbue,*. 



Le mode "Copie d'icran" est utilise 

conjoin temcnt aux f one lions du me me 
no in, disponiblcs sur la plupart des 

modules de Minitel : 

Fnef-I puts F pfrtir line triple d'erran avec 
c uracil res accentuds ; 

Fnct-I puis A puur uue eopic d'ecran sanis 
caractcic accentuS. 

Pour que la reception de copie(s) 

fonctionoe, il faut qu'un fichier - s^r 
leave! Stront dirtgdes les informations — 

soli ouven, ei que le oouton "Reception 
de copies actives.. soit 'on\ Ce dernier 
est n^ceEsaire pour ne pas accu mulct tout 
ec qui eat cu VUTr 6 pai lc Minilcl cllLc Jcua 

copies cecran. 

Si plusicuxs topics sent cmcgisticcs sui ]c 

mcme ticnler, eilcs sont separees par deux 

'xautsde ligne* etune ligne de 

FraLiquemcm, pour faire une copie 
d'geran (on suppose qu'un fichier est 

ouven}., il fauL: 

• mettre le bouton "Kfiception de copies 

' fairc Fnct-I puis F, ou Fnct-I puis A 
sur le MM tel. 

Si i'ordre n'est pas respecte\ oil pent avoir 
unc copic tronqu^c tl, ca memt temps, 

nmpression Oe ne plus "avoir la main" 
puuque le programme attend fa fin de la 
page, qui ne viendra jamais. Dans oe eas, 
il wjovicot d'envoycr a nuuveau udc uupie 
qui, elle aussi. sera tronqucc. mais 

d^rlenr.hftrfl un* pmfwfion du programme 
qui remeitra tout en ordre. 

Les fichiers crisis lues depuis ce mode 

sont exploitable* depuis lout les 
programmes qui aeceplcnl Lc format 

'TEXT' (MscWriie, Word, EdiL.j. Attn 
de respecter la ge'omitrie de l^cran. il 
coavteolf lore dWe impression, d'utiliser 
uue police de uaiaUcres a diassc Hac 
t Monaco ou Conner). 



Stockagc 
Consultation 

Cupie u* b'trtin 



^Prcparation/entioi 



Ce mode sera utile a ceux qui ont 
rr£ quern rnent besoin d'dmettre des 

messages acsez longs vers des serveurs 
ct, dc manierc plus gfucYalc, aux futurs 
utilisaieurs du 'coumcr eicciionjquc ' qui 
sera prochainement mis an service du 
public par les PTT, II permet rimissiofl 
ue niwiiaijc!* piepoie'* "liuis rC^cau 1 - dune 
sans CGDtrainte de temps - et. 

^ventiiellemenr leiir^dirion 



□uunr™ 
Enregistrer 

Quiittr 



Pour commencer 16diUoc d un nouveau 
message. 



f nrcijit lr or... 

quitter 



Ouverture d'un fichier contenanL un texte 
^dit^ avec ce mode ou un programme 
autorisant unc sauvegarde cn format 

"TEXT". Si le flcnier en question connem 
plus de 960 caracteres (un dcran Videotex 
complet), le programme €met un *Bip' «t 
5culs des 960 premiers cardctdrcs soaL 

charges. 




Fnrpo^tiipr... 



rtrmw 
Qultlifr 



Pour sauveg aider un texte. 5i le lexte oe 

porte pas de nom, le. pragramniR afftrhR la 
fenetre de saisie habitueite. Corame pour 
le thargement si k tc^u; a bauvegarder 
content plus de yoU caracteres. uo 'bip' 

e^t 4mi$ ft seuk de-s 960 premiers 
caracteres acront enrcgistf^s. 

Lc Bouton "Noinbrc dc caracteres" domic 

cctte mdication dans 13 case" placee au 
milieu de la fenetre II pent etre utile dans 
lc cas dc scn'cur acccptont seulement un 
nomtjre limits de caracteies. 

Lc Bouton "Envoi" dmcE les caracteres 
comenus dans la fcnCu~c reis lc ^clvcui, 
ceci a raison de dix caracteres par 

seeond^E. 
Rermrques: 

- Ics caracteres sont filirc*3 ct rccodc"s si 
oesoia est au moment de remission, 
rertain.i caracteres *exotiques' qui ne 
seraient pas reconnuE pafi le terveur 
suuL biui^lcmcm supprime's. Ainsi, lc 
caractGre n est pas iransmis. Lc 



tableau de la pa^e 54 indique Lex 
caracteres vaLdes ; 

* la fenctre dc saisic du mode 
"Preparation/rlnvoi" n accepts zu . 
're tours- chariot*. Ce pendant sa 
'retour-chariot r se trouvant dam 
tcAtc saJsi avee uu pju^iaiimic uimr-r 
MacWrite sera envoye au M 
mm mi* la mmmande ^Snite* 1 ; 

* bien que les "retours-charioi 1 ne soicaft 
pas at;ceptcs dlrecu^meuL par la fencre. 
les foncitons d'£dition Couper, Cc-pxz 
et CoUer ^tant vatides, il est possib-k de 
collcr un dc cca caracteres rteapCxt 
avec un accessoire ; 

* la commande "Suite"- qui rcmplacrTB 
l ^etou^-chaI^ol , - est euivie d*un 
d'enviroa unc sccoudc ct dciUi, 

arm de Jaisser au serveur Le temps de 
'digtfrcr' la ligne de tex»K. 




Quel que soil It mode dc foiitu'uiiucujcm 
en cours f cet article lenne reveuiwei 

fir.hier nuverf et rirnvrique; un refnur *c 
Fender. 



Quelque5i general ites 

Le programme est en deux panics, ja 
premiere est baptisee 'Minitcl/t ' mais ce 
nom p-eut clrc chang^. En revancha, la 
accondc parlic doit imp^iaUvcuicm 

s appeiee Mlniiel/2' (sinon, il faut 
modifier le 'CHAIN' sim£ a la derniere 
Hgne dc la premiere partie). Pour lancer 
rcAcXutiou du programme ; un double 
'cite' sur la premiere partie. b'i vous avez 

la disquetle d'accompagnement de ce 
numc>Q, cllc couticnl unc VGjsion 
RunTime du Basic Microsoft, 



Sur un 128Ko 

Dc grands efforts d'np! imitation nnt i*r^ 
fails of In que cc programme fonctionnc 
ausiii sur un MaginUJsh lZ3Ko + Cepen- 
danL le systemc sc trouvanl un pcu a 
1'^troit, il est pr^ftfrable d'utilkcr un 
ancicn fichier 'systcmc' (oumdrtJ dc 
version infdrieur ou e"gal a 2.0). Les 
versions postirieiires constituent quelqiie- 
fois, avec le MSBasic 2, un melange 
'dEHonnani* Csculementsuruo 128Ko). 



EnHFS 

A uotrc tuLiiidiaaiiuce, 11 u'cXLStc pas 
encore de version du Baste Microsoii 
compatible HFS. II faudra donc r juEqu'a 
cc que U grande maison nous foumissc 
un Basic en eiai de marche, lalsser La 
totalild des flchiers (inierprcteur et 
programmes compric) au niveau Oh 

(3 
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Programme 'Minitef' 

Premiere partfe (WnHel/V) 

' Foii un peu de pka& d on zst sur an 

3* its i o <zioaoo i then CUIAR, 20000, 
220D 

■ Initialise ies tableaux de ¥w iabies ct 
/jiwbju&s variables tttiUsies p lux loin. 

ft-£:Dft-ABS(FSE(0)v50Q0Q.: > iT 

20=200Q+3000a*DR:T22=63f447*DR:D 

DIK At (T33KI (T22>,V{3) ,A<Sfl>,B{2 3 

G(3),H[3),J[2GKK{26>,L{26),M(22 

,SU1, J (S3 J , UU3),ffU&J ,X(&5),^ 
(4aK*OK21(14>.CRf2,3).Z2f4,4 
>,FLfij 

* CWa cSjet de la rouiins 'Delai 1 . 

4F,thA975, fih23lF,fihDS83 jf 4h594F > fi 

HA075, chBS0F,th63ra, Lh4£5E, £h4E7 
5 

* Cwjic objct dc la routine dc chargemznt 
des cursturs (Pom's IS), 

DATA 0, 4H42A7, £H3F2E, fl, £HA& 

Kl; i> z , ii-.A: &HAB ■ : , fctHtOt, 6 
H4E75 

* J irrej to bouSans en mode 

"Consultation** , 

DATA * |<< %■ « < * r * > 

» * , * » | » 

* Positions et litres des teutons en mode 

"St&ekage"* 

DATA 16, 16, Connexion, 56,16,Sommair 

p, Cffi, 1 fi, Eftti Sfi ,117, Annul at inn 

j 3G f 1 \ 7. t CvilV^liuil, ^C'riCvH'.-,,-.-. 

,96, 208, Suite, 16,304, E. Page, 56, 

* four tej poly2oms des boutons en mode 

S2:DAT*. 54,0,0,24,88,0,9,0,86,2,86 

,22, ftfl f 24, 85,21, 2, 22, 0, 10, 0,^,1, 

■ Definition des boutons *Marcftc/Arrc( l ct 
'Miseaiiro' en mode "Siockage". 

DATA 16,2S,*H7FFE,SH80Q1, &H9FF3,6H 

,£H81&1» &HB241,£H84Al, £HBBD1,£H9 
rr^>, sii^rr^, c 110001, audio 1,61102c!, 
4tf8241,£HB2Ci,£HB34I,SHS241, 5H86 
Jl, GH81B1, CHS001 r CH7FFE F EHai41 r £ 
H3B4 l,frfJ&5fll r frfT9161, fcKfil31,4MM4 
9,£H8279,£H82g9,£HB0ai,SH7FFE 

» Definition du voyam enreglsirement en 
mode "Stockage" . 

DATA 11,2 J,fcH7FC0, frflFFEO, fcHFlEQ,fcfJ 

EAE0.£EJE4E0.£HEAE0,GHF16&.£HFF60 

, £ltFT60, 4lICl60 r tlICF60, £HCF£0,£HC 
JfcO, 4HCF&0, SHCFt>U,£ffClbU,£HKFbU, 
£HFF6D, £HF1 £G r ftHEAEO. &HE4ECJ . &HEA 
do , s nr 1 c o , & nrrc , t nvrc 

< Pnu/ U pnlyo/w du chrono. 



DATA 4G,12,1S0, 40, 2SS r 12, 12, 25 

- Reticles divers. 

DATA gHDDFF, 14, 14, 14, 42, 165, 1€B, SO 
,SH ^ ;±T, IVti, 195, 1YU, lt3,B,y,5,fiHL3 
DFF.39.39.35.fifi. 1 S3. 182, 104. fiH77 

rr f 257, 20 C, 175, 17 C, 120, 127,131 

» Cede objet de la routine "Conversion" . 

UATA fcM4t,5ti, 0, iili U^t, S, frM41J:A, iMB9 

0. 4K20 01,£HlA69,S,fiH^7DC, tH1A2&, 
J,6ilfci/i;(;,thiUHL", J,SHt)U14,&ttlCUiL, 

1, £H6Q0E,fiHl0BC F 2,fiH600fi.iH5889. 
fiiJ51CD, *UrrD0, fiLISlDO, SU4C5E, SIME 
75, £HS819 r £E41Gl r £HB919,fiB43&l,£ 

DATA fiflSrl^, sH416i, iH9019, 5 
H9119, £134865,609419, SH43 63, £H3S1 
q r AH4HA4 r £R44l *R4 3fiF, SH9A1 9> ftH 
4eeF,SR3Dl?, SR4175,fiH9£l*,fiH437S 
J fiB9Fl9,til4B75,£HAll9 l £H3000,frHA 
310, tH2300, £HAfll9,£H2'J00, tHA7X* r 
ittlaCFO, i MB 1. 19, 4iH3100, fcHC£19, iHCft 

00 

DATA SRCF1&, £H"7AO0,£HDfil5, ia3flOO,£ 

i tK8 1 2 r 4 !iC C , 4 H ? 1 3 r A 3C , 5 H2 1 J 
,6114500,41m 3, tH4 13, £H470 

DATA SH4E5fi,0,fiH2l6E, S, SH3A2E, 12, t 

HCATC, £H3&, £ H1ESA, £F11 4 4 , ■EH'TEBA, £ 
H1^L,£H ^Ur t t firtS ' CB, itlr r r r„ Ei-4tsA 
.&H124.tH4EBA.£K12C.£H4EFA, 

*U4E56,0,tH2 46E^ 8 , fill 4S7A, fiHI 08 , 4 
f? # *B /bUy,6HJBUU,&H ^At}U,GH42b 
7.4H47FA.tH18A.tH2F13,fiH4B72,tH5 

002,6EIAOAD>,6[HASF, s"CCC0 

DATA &HA2, &H64b,£H36, bH5244,£B^lCB 

A, *H51ED,5,6»2ZDC,15,*Ti9$,liH2 37C 

,iH26, fiHA7,4,&H4EBA,SH132,6H66lA 

7C, ftHCO, e, 6H4EBA, SHllC,4He7 50,ftR 

50ES, 5,£U4EBA, sH124, fiHSOEB,. 4,£H4 

DATA itHft^TJ, bH4A^, 4rM^70O, fctlZii, fcftt 
87A, £H1 22 P £HA972, fiHflEBA. tHFA, £H6 
7 00, SR4A2D, 4,*nGOE4 / SHfiODA, &[]4A£ 

B, 4 , &H6 /DC, &H4EBA, SliFd, £^1E5, 3, 
tttfifln>?, ftR4A?R,4,JtRfifiO?,fcR6nifi.ftH 
*A£& f 5, AJJG7 0A, SE13GBC, 11, 6(3 4fiOA,fi 
HDC, &R600A, fiHlGBC, 1 0,fiH€0F4, &H3S 
BC r tHFFFF, 

DATA *H4C75,4H^EBA, , *Htfl 4C, 

OEB, 4,SH4267,£HA973,iH4A5F,fiH672 

E, SH4ft7A,£HC6, cHA^72,tH1257,£H43 
FA, tilbt, 4BZM1,SH4H //, iH3UD/,fiHA 
BAD.fiR4A5F r fiH67fl8. SH4A2B. 4 . fiH66D 

A,«n&oi>2,cn4A2D, 4, 4n&7D2,4HGiie, 
4H51EB, 4,£H60CA, SH4A2B, 4,tH6604, 

DATA fi»«19C, 6H60AA, 4H2F0C, fi£tA&CS, A 

H497A, £H7A, SHASBA, SH4E75, SH204C, 

tttA023, CH4£7 Cti703e r LHA133, t«43 
FA, vi^^nZZ,^^^.]^, fcflZ33l, 4,* 

HSses^ctHsssg^.sHSBsa^^Hsafeg 

, c, £H43F2, t :<, : ; , £ 



DATA ,S!I£:2£S , 5 112 2, &U526G , £H2 4, £.11526 

8,frF12B, t:]:>s:.. fi«2C, SH^26fl, GH2E, £ 
fl^^fifl, JtP3^.tM^F7. E i, JtH4?(^7, JtHd7FA, 
SfilE, SH487A, 1 6, *HA3 AD, S □ 4 

A5F,£H4E75 r tH4B7A,6, *HA8A4,*R4£7 

G 

DATA &h4E5C, 0, fih22CE, 0, 4^5400, 6h70 

n&TA thimQ,jchFiftft, shinn , jthii fa, c 

1l0 06A, fth££4fl, fi]i72ie, 63l4£S9 

DATA £hSlC9,fihFFTC,4h2140,lS,£hA00 

DATIL 1 6,4h4C5E, frh4E75, iii4E5fi, 0,Sli4 

!FA Jl £h46,£h42A8 
DATA 12, Sh22€E,S,5hl019, thEl48, thl 

DATA £h7DD0,£hl0l9,fihEl88,£hl019,£ 

KE1&8, £hl011,£h^l40,32 
DATA £hJl /U, 1, &ftZt;,£hZltiL, 12, &h2L, 

£hA002 i £h60BA 

DATA &h4£5C,0, 6H41FA, 12,6h42A&, L2 r 
£hA001,£h60AA 

* Cixte objei de la routine de fermeiure des 
fenhrex {Pnm'x IQ). 

DATA *ri4EA7,fiIIA924,Sll2Ulr,*[!6706 P fi 
H2F07, £HA916, SH60F2, £H4E7 5 

■ Code objet de la routine "MAT . 

DATA *H4E56.G.£H76FF.£H266E,8.fiH38 
ID, SIIC43, 11, SII3F3C, 2, fiII3r03, 4IIA8 
93,£H5344,£H6B10,SB7000, fiH101B,£ 
wrnn, \ ^,sTifi7F.A v jcH\Fnn, £HAftft3, tRfi 

0EC,SB4E^jE, fiEi4E7S 

- Co4e vbjet de la routine d& ch&rgamsnl 

des icones (Pom's 1 5). 

DATA £HdE*G f fi p CR-S2A7, S.H3F2E, CHC, rH 
fl3BB,fiH£OS7,ftH22S0, 6U246E,4H0, *B 

24FC,32,32,6H70lF f 4H2qD9, 6H51C8, 

tWFFFC, LHiE.75 

pur ptig&s {128Kv)* 

DATA ,s,t,ent,,s,* a" r " ont H , ,,s. 

* r^,rf jr d£S menus. 

DATA Mnds*, S t n r-. k tuja , CTn n *st 1 1 taFi n.n,C^in 
.j _ - lS.* B^±an, r nijja tal . -> ■. . _ .. , 'I 

ch ier, Nouveau«„ Ouvri r-. En regis t r 

,JLfepari: automat ±que,D6 connexion 
autoiraticue^,Marche r Mise a zero 

DATA LiiiiatPTi, CannciKien, DficionnoKion 

,i/uu oaudSj qhuu Dauaa, corn's, U J 
39-51.24.43 

• Positions des carocteres du ckrono. 

DATA 312,230,333,240 

• P,tnL<t <Ux articles du menu "ficfuer" pour 
les differ tftis modes. 

DATA 0. 0.1, 1.1. 1,0,0. 0, 1,0,1. &,0* 1 

,1,1,1,0,1,0,0,0,1,1 

' Initialisation des tableaux de 
variables et mise en place des menus. 
ru*t i=u tu 14:K£AD z,i u) : meat; fur 

1=0 TO lOsREH) ;HEXT;A!=VAKP 

TR [Z{0) ) iA! 4 
FOR 1=0 TO 5; READ &5 <T) : NEXT: FOR I 

= n Tft ^FtlJ^tHaAS^H (TJ=tHFFFF? 

KTEKT.roR Z-0 TO 10 JTEP 2:&EAD E 

(1} ,E(I+1) , A5(I\2J :NEXT:N=0:FOR 
T = n TO IS STRP 7;Tll?STORR ^? ^RF.AD 



Pom's n' 27 



:N=N41:F0R J=C TO ". 2 :RZAD 1: 
fN] , D fN+1 ) 

D{M*~D (HJ tE (I) iDlMrlJ-DtMi-l^fid + l 

) ;N=N+2;HEXT;NEXT;F(ffi T=Q TO 16; 

1? TO ZfiiMAD JIH :MSX^;rCFR I = i7 

TO 26iR£AD K ( I } : NEXT: FOR ]=D TO 

?S?P2AD L I IJ -WFJOTiFOfi 1=0 TO 22 
:RZJLD (tftj : HEX! 
FOR 1=0 TO 3 :READ GdLNIIl ,0(1) ,P 
<lKQtl> f R(l) i : 1WEXT1FOH 

I»0 TO 96:KEJlD ft Jlj iKIUEf lJf\B5 1 = 
TO 225:RE1D Bill : NEXT* TDK T-0 

TO ;i:ftBAP T(IJ iTIBXTiPOR 1-0 TO 

/:KEAU L CI ) ^HISAT IFOR 1=0 TO Z3:R 
EAB NEXT : FOR T=o TO t R ittKID 

W (I) :MBXr 

FOR 1-0 TO 4:JB1D C5d,0),CSd*U: 
HEX? : a i =n - a ■ -vibpth (r(n)hii'BU 

103) ;A65=CHRS (27) +CHRJ <57 > + CHR$ ( 

FOR 1-0 TO 4;FE*D :KEMU 1,1, [i^j 
U+2,CS;KEXT:F0R 1=0 TO SiREAD C 

$:MEMU 3,1, AND I<b)»ljC$iHB 

A'i':i"4JK 1-U TU j; :KJ£jUJ :j:>JHJiWU 4,1 
. :.C£:NEXT:F0R r=Q TO CRZAD CS: 
HEWU 5,1, |3>&) i 1,C5 itIBXTiFOR 1-0 
TU i:KKAD C$:HEKU b, 1 , 1 , Cj :NBXT 
FOR l-C TO i:READ C Ft f 2 . I j : NEXT : FOE. 
1^0 10 4iFOR J-0 TO 4: BEAD ZZ iJ 

i J) : NEXT: NEXT : CHAIN -Minitfll/SV 
, an. 





h 

7^ e 





Programme Waiter 

Scconde partie (doit Sire 
baptiste mnitol/2') 



* Actresses en cos d'inlerruplions par lex 

ev^ncmcnis. 

DEFDTT A- GOSUB T14i:GQSUB T14o:G 

OflTTB ffj BPFJJ, CASUS SI :BKELAX 

cn:cn bkkoh Guru ^o:un uiajaxj 
SOB S5:OH MENU GOSUB 5i7:OK MODS 

X GO SUP £2GiOH 2 IMS R i 1 ; C03UE 02 
*:yU3UU 5_:J:lNlTCUKSOR 

10 OH A3 GOTO 11,10,13,10 
GOTO 10 

11 IT ft 4 I HEW IF r,~> = fit TU£N IrtJHUlS 
SIS r GO SUB S - : GOSUB MA : GQSUP, S5 

3;G03UB 319 

CS-INFEY$:IF CS<> W " THEN 20 

1? T7 ft^;=1 TTTRW AB=LOCOj;TF DZ TH 
EH IF Afl TBSH rRXWT#3 , IHFUX$ ( ftB , 

2);;A9=A9+A8:IF C6 THEM IF El TH 

FN GOSUB SlftiE"7 = -DT=0 :COffOD Efe^ 

IF 31 THEN BI=Q:GOSUB S<fl 

IP DE-C THEM IF AS THEN CD5-IHF0T? 

GOTO 10 

13 IF D2 TEEN IF A3 THEN AB-I*OC {2 ) 

:IF AS THEN GOSUB SSO 



GOTO 10 

14 GOSDB 1 Cl 

15 13 0:3010 10 

2C N^ASC(C5!:IF N=13 OR N=3 THEN K 

=9: GOTO 30 
IF TBEN K*>4i0P9K» 30 

IF N=9 THEH P-6:GOTO 30 

IF THEH >3-3tCOTO 3C 

IF ti>M AMD aCBBfl i , 

SfNI; ELSE GOSUB 334 

GOTO 10 

AI=VAKFTK{B(U] ) :A! N , VARfTR l D i D 
I) : GOSUB S 94: GOTO It] 

• On arrive ici en cas d'action sar un menu. 

SlftCOSUS al6 iMC-MttNU<aj jH". -MEMUC 

j :if nu^fc iKtri «i uvsy» xJ,xb 
,S30,T9 

• Menu fit mn/ifi "Kt/vir/jgfi** 

TT.OM MO 0O3US 3-t 3, 31 , JJifl , 334 r 3^3 ; 

RETURN 

■ A/t7«t muda "Curwuliutiun" , 

TSrON M0 GOSUB 5. SU Tlfl, S5d . S5^: 

• Menu et mo-tie "PrdparaiioJi/Envei" , 

RETDRK 

Mrrfcfe Stockagi" du menu "Mode", 

Ott A3 G03UE Ul,U£,Ul,U4iMElfy 4,0, ( 

M1>1]+1:IF Hl=2 THEN FOR 1=1 TO 

A (MEN? 5,1, U<3} + 1.KBXT.HEK1? 5,3 
, ^ £L5J£ £ UJt 1 = 1 XU 1 :M^KU &j 4j 11 

>2)+l:KEXT 

IF Ml— 4 THEH CBS-'^nicgiotrcr.-" EL 

£E UH*="tnregj.strejnent" 
mewc r rnsia?=FBH** ■) :msE a 

I , IjrViOK Ml 0O3PB 3^1,312,343,34 

A :R£TUKN 

U3:IF DU THEH : V?- u 13 ■ :DRIKT 1 1 

Ufl :CLOSR I : RETURN 
SJliCLOSS 1:CL05S 2 :PJZTUPW 

• Hfitiad&ge da oararJirKJt s m^qbsb^£ 
a94^lF h-<:o TniiN rp locU) thei? ke 

EP:RETURN 

TT W = Tfi OH N=t1 TITRW ROffTTR sfiQi CRT 

Dm 

safliAi:=VMFTR(A(DJ)iAl[ N iAl t-Al ! 
UP4»A1-MEK (At! > iAl l-ftl 1 + 1 tIF A 
1 = I HOI KJ&TUKH 

FOR 1 = TO Al-1 :PEIHT*l.-CSRS(PEEKt 

AIT H)| / llffiXTi IF B4 THEM RETUTtH 

RETURN 

■ Ajjichage du it/menu de Uifenitrz en 
mf\Ap Sfoekagf* Arffinii/irt ' iiyn tfewt 
'espaces colkmts' dans te PRINT"* "". 
565:IF DT THEN TIMER STOP 

CO CUB EGl;N-Q;Foft I— C TO Of IF 1-0 
OR 1*7 TEEN FILUOLI VARFTR '." : '.' ) 
J^VlRPTR^rCflt ) -GOTO 5<37 

IF 1-9 TSE1* FILUOL¥ ViLKPTR fD (N) J , 

VARPTR(G{C}) ELSE FIXXPCXY VARFT 

&^ • : JfKAMLi'Uiil VAK^TKIU ^N)J iJJT 1-U 
OR 1-7 OR 1=9 THEH TEXTM0DE 1 : TE 

XT FACE S EL£E TBX7HSOE 3 i TBXTFAC 
J5 U 



MOVETO D(M + ^J +y,D(N+l)+il:FRlNT A> 
ITVsIF 7=0 THEM TEXTFACE fl : HO VET 

O VIZ) *3,Dtl) tE^.PREJT-rlri* 

M=K f 2 7 : HE XT : FRAMEF OLY VARFTRfMiOM 

:FPAKEP/TIKt>FT!rT VJipUm (M ( a A, 4 
; TE aTKOEjE ; :T£XTTACE 0:KOVETO Z2 

7,31:FRIHT 1, * **:PUT(152, 14),K r P 

SET :DOT (177 , 1 4 ) , J r PSF-T ^ IF A3 = l Jt 
HfJ THEH FUTUM, 14) , L, FS^i: 
U DT THEN PAINTROUHDRECT VARPTR{P 

(OH , 4, 4:TlH£n CS3 
RE TURK 

- On arrive ici en cas d'action sur la saw is, 

el dans \afene£re> 

520:GO3OD ClflfOM A3 CO£UB &21^Sl,E 

l,Sl:GOSOB 519: RETURN 
HI ?TNTT(Tmi5!OP:A f =VaPPTP(Rf?Hi *A> 
V*»ffip(Ol ) . aOSUB 33. IF D {230} 

>-l THEM K=Bt230) ^>OSUB 59fl 
PETUPU 

■ £>i 1 'stockaze" , mise a jour de la 

tabic d'indcx apr&s cfasque action sur una 

commande Mimiel. 

CO b i IF M<lO0 TEEM S9& 
1UILF Ay<T/U TIUSW 

R5=R5 + 1 :A! (Bfi+U»A! IBS) +T20:I (B6> = 
T20 .DO-aC lite DG-'T32il THEN Bl- 
- . ; .^1 :Kfc.TUKW 

A9=A9-T2D:GOTO TD 

339. A! tnq+ll-ai (DC) iA0iI{DC)-A0:D€ 

=B6+1:IP B6=T22+1 THEN B1--1:EKR 

OR 2iO:PFTTmM 
A3 = 0;ftE.XOBM 

S98:A! tB6)=A!|S6)+A9;IF B6 THEH H 
ae-i) =i tafi-i> +as :Afl=o 

RElUHf 

• Ouverttirp fi'ttn nauw/m fichier en mode 
"siackige" * 

T : : nA= Q : FS=FIIiESS (Of: GOSUB S3 

100 IF r$- M " DA--^-RSTUEM 

101 OPEW»o",J f FS:NfiME F$ AS FS, w jnt 

■ Ouverture d'unfichier en mode 

"Consulxtfion" , 

562:DA=0:FS=FXI£S5 fl, "mtlF") : GOSUB 

OPEN" I", 3 # f^;RZTUMf 

fc Ort arrive ici en cas d'ev&vmcnts dc 
type 'Dialog'. 

S5:COSUB Slfl:0» A3 CO 3 UP T2,T3,T4, 

X^:«>sub m9:r£xuen 

* 'Dial&g' en mode "Stockage** . 
T2:BB=DIALOG{0) :IF BB=5 THEN GOSUB 

RETURN 

- 'Dialog 1 cn/rtfxLc "C&nsukal'ton" . 
T3:B8=DIALOG(0i :IF B8^5 THEN GOSUB 

IT bfl=l THEM GOSBB 57?;RETURH 

IF B8=G THEN IF B7<B9 THEN BUTTON 

- 'Dialog 1 en mode u Copic ^ecran" . 
T4;C2=DIALOG(0J ilF C2=5 THEN GOSUB 

IF U<>1 IHJLN HETUKN 

IF DIALOG! 1} =1 THEN IT B3 THEN BUT 

TOM :,1 fJJj ELSE BUTTON 1, 2iB3- 

-i :fti=u:L"ti>=ifi^u'ri iuj^ U) * £) 



V 
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- 'Diabg' en mode " Pr&aralionl Envoi" . 

T 5 r DO -D ( ) ; IF Bt)-5 1-ZHLYi COCUD 

584: RETURN 

TP Rfl = l TRFU AM ^ftft 
RETUKN 

- Mise a j&ur, mcde f 'Stechage" » 

HEN GO SUB S?? ELSE GO SOB 5£S 

■ Menu "Fichier" en mode "ConsuUetien" , 
Tin: uh mi lioaub sflb, 111,5/1, 3JZ, sz 

S:RETUKN 

' Alod£ "Consultation"* menu "Fichier" et 

article "Qwrir**, 

170 7F FS= ,,U TRFN RETURN 
OF EH R * r ^, TO + " - T w : FIELD 3,4 A3 A3? 
,2 AS A4 S : GET 3,1 

EH ERROR 254 

B9=CVI{A45) : IF THEN B7=I ELSE B 

ECP lF$- tt * i CLOSE j :PJtTDP>I 

fuh i-z tu By+z;tiB'l' ^l!l(I^>«CtFJ 
<A4$) :A! tI-2)=CVS(A3$) :NEXT:CL0S 

A5S=ca»5 f LEN fFS M +FS : A ! =VARJTR (T ( 

|)iA! VARPTR{A5P) ;IF T(C*J WEEEH-T 

ERROR 255 
PETHTiM , [1 ?1 ; :C02UB 5 31 : RETURN 

■AftWte 'CoiTjiiifaiio/i" P m£nii " Fichier" ei 

article n F armor', 

SJZtfQK 1=1 TO b:»UTTUH i f u;f»fXT;tt 
7=0 :R9=0: GOSUB S34 : A! =VaRPTR(T *5 

Gj ) ;A! ;GO0TO G 3 1 i K— 2 ■ GQCUH TOBsF 
5=-"; RETURN 

■ Mtrtu tu muttc "Cupic d£u tut" , 
S30:ON MO GOSUB S45.S1. 329,554,559 

• Afmu "Fichier" en mode "Copie d'erran" 

£>Z3iGH Ml (WSyB S£D,5I f ^7,l30 A 5£fl 

: RETURN 

• Atfade "Cople d'ecrart" , menu "Fichier" ei 

article "Oiwrir". 

323;£OSDB 37$ 3 IK Dfl THEM K=l:TO5UB 

T9fl:NEN0T 1.3.2 ELSE VfQ)=0:BUTT 

ON . . ; iLXNH ■. ' , ■ U1Z,2$$) ,3Q,I3F 
BS=DIPUTS fLOC C2) .21 

RETTJRH 

• Mode "Copie decran" . menu "Fichier' et 

article "Fermer", 

130 CLOSE 3;BZ=0:BOTTOM l,0rB3=0:G 
OSUB S31:K=1:G0SUB T9S :F$=-" :RBT 

nm 

■ Mettu "Ficfaer" #n mode 
'TrdparwionfEnvoi" * 

S35:ON Ml GCStffi S36.S37.S38.Sl.S2e 

■ Mode ' 'Pr£p ami i&nJEnv oi" , menu 
"Fichier" eianlcle NouveaiT. 

16 .FRrHrT*FiiJii.t;j- ; Sans Liti*: M ;C 

B5=" ,w ;G0StJB T30:M1TJHM 

■ Mode "FriparuiiunfEnvui" , mam 
"Fir-hbr" rtnrtlrh "Ouvrir* 



fill : THTTTTmSOH : r^S=FS = F5=PILSSS I U 
"TEXT" ) ,<303T7D 3D . IF T^- w_ TEEH F 

S-C5S:R2TUHN 

CBS -INPUTS (L, 3) :CL0S2 3:C4=0:GOSOE 
*Mode ''Prd'parfTtfanfFtTvni" , mfirui 

"Fichier" et article "Enrvgi&rer" . 
S38:GB$=EDITianL=LEMtCBSJ ;U L=0 

U L>9b0 THEN L=ybU:BEEP:iJ^=l.:li^" 
9fin w !rR£=LEFT$ (CR.S, 1,1 : GOSUB T3D 
IT F?<>" TEH? 339 
INITCT3HS0R:FS^FILESS (0) 

160 IF F?=" w TSEH PETnBH 

161 OpEH-o'^FSiNAHE FS AS FS, H TE 

i39:QPEK"0-, 3,F5 

162 PRIMT#3rCB$; 

163 CLOSE 2 
l&S RETURN 

*M*m "Fkiritzr" tsnmode "Stockagc" . 
S5D:OH HI GOSUB 346,347,527,548,32 

p Menu "Chrfynnmhrd* p.n mode 
"SuxJwge". 

S54:GH Ml GOSUB S5l,S^2 r MA>S53;RET 1 

URN 

* jV7ew/ "LimJOTT en nw?cie "Stockage". 

£53iOH Ml CASOB E 5 £5 5 r S 5 1, 5 58 
TUREf 

■Menu ,> Mo<&\ article "Stockade"* 
S41:S05UB T14itGOSUB T14o:DDi ft! fT 

m 

•Menu "Mode", article "Cvnsitltution" . 
<M 1,"" , (20,50|-|156 t 2*0), fl:G050 

T* .^fil -FOtt T-fl TO 'i : BUTTON T+1 , 0, 

EXTi37=0:fl9-0:K=2 : GOSUB T98:GOSD 

S Til iRETURM 
543 ; GOSUB T141:G05DB T 1 "i u ; D XH 

) , 1(2) , V(492) : GOSUB S60:HINDOH 1 

tXEXTTUWT 4 : TSXTMCDE 1 :XEXTSILE 

9:K=1;GOSOB T9fl : BUTTON l^O.'Rece 

ption dt copies active", (2,S"'^> 

TURN 

* Mew "Mod& r , article 

"PrSparatiort/Efwoi" . 

St A : GOSUB p 4o:DDi Rl (2J , I (2J , V tZ} 
:Gosor £fin:r4=n:WTwnaH i, w *. 

80 ;K-3; GOSUB T98;BUTTON 1,1, "Norn 

Viro H» MMftire^", < ?, - < 1 fiH, 4 
2) :SO!t«f 2,1, -Envul**, (228,23)- < 
3B9, 42) :CB?- w -:GOSOB T30:EETURN 

* JWode "Siockage" , menu "Fichier" et 
article "Itfotrveau" . 

5<1<3 iGOSUB TlzIT Dft=0 THZ2T ft5=0 :GOS 
UB S24 :K=0:GOSUE T^S:E7=-1 

HETORH 



- A/a^ "Stackage" , menu "Fichier" et 
article Quvrir". 

RETURN 

"Stoefcage" , menu "Fichier" a 

article "Enregistremenr" 

bZllIT DE THEN DZ = v : ER2L3ERECI VfiM 

T3t(O(0n ELSE DE=-1:PUT(195,14J, 

L,PCET 

■A/txic "Sfwfei^", nicrtH "Fkhier" ct 
article 'Fermer" . 

3$ Q :IP TUEM EIUXOR 211 ELSE COEtt 

B 596 

111 OM»"R",3,F£?iHMSH F£0 A3 F2^, 
"ratlT" : FIELD 3,4 AS A35,2 ftS 

■ TjSHT A4S=MKTS(Rfi\ :LSET A3S=KKSS 

112 JOT? 3,l:FOR 1=0 TO 36 :LSET A3? 

j, i+z :ME?CT:CIiOSE 3 
S63rGOSUB S31 lERASEEECT VMPTR(0(0 

} } :DE-0 eF?-"* iK^I iCOSUB TOBiHSe^TJ 
KM 

■ Mem "Fidtkr"* cuticle "Quitter". 

5 2 S : PRIST 11 , A 2 5 ; ! CLOSE r A ! =VfiEPTR ( T 

(S£3 j 1 AT iM-VMMR(C(0} } iR] =3YST 

* Afork* "Storjbigfi.", menu "ChrnnntnAlre" 
el ur licit: "Dfyurt tutiufnuiufue" . 

S51:IP C6 TEEN MENU 4 - 1, 1 :C6=0 :E7= 

1 KBHtJ 4 p l,2iC6- 1 

RETURN 

et article "Diconneidon aulomatiQue" . 

3 52 IP A4 THEM KDHU 4,2,1, CDC i "m": 

A4=0 iRETUKH 
TF DT TTTFH TFMFP OFF 

A4=-l :TfIWCrQH Z t ~~t (22,62) -(222, 134 

) t -2 : GOSUB S64:EDIT FIELD 1,A1S, 

(S3, 21 J - (120 r 35 J , 1 , 1 TfcfiTPffl* 1,1. 
"Ql\" , tl4,40J- (17Z, 64) UIKLOO 

GOSUB S6:DIALOG ON: IHITCUHSGR 

SS:GOSUB 5J:t£U3U8 ^b^JWiiMU fl,Z,Z,C 
DS+fl /**MS+ w ' B ;OH DIALOG GOSUB 
35; IF DT THEtT TIMOR OH 

RETURN 

* Mode "Siocfuige" , menu "ChranomtUre" 
et article lT Mise h ie*ro" 

5^3:fK>5Ua 567:GG5UB 5S6 : RETURN 

* Menu ^Lmson," & Qriiclc "Conrusdon" , 
S 5 6 : PRIHTI 1 , A 6 5 J : RETURN 

■ Mode "Consutiation" , menu "tiutsun" u 
article "JlOOhawh? 

557:IF DV THEM DV=Q : V*=-"1Z" :FRIHTfl 
1,CHR${27) -:kd-;:GOTO T99 

*Mode Consultation" , menu "Liaison'' er 
ffi*teie "4SO0haudS'- 

s3S:ir DV=0 THEW DV=-1 : V£="48" ^RI 

HT#1,CHR$ 121) w :kv": 
iggiCLoes. i :Gostra ti4o;He>iu s r 3,pv 
+ 2:HENU 4, ABE (DV) +1 :RETURtf 

- Ajfichugt et inise d jour du c/votv?ntetre, 
S2i;A5=TIKEK-B!-C7iLT A5=36O0 THEN 
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568:CB=A5\GQ:D4=A5 MOD GD:CR(0,Ql = 
crBUQaCtttO, 1)=CB MOO 10iC*U0.2> = 
d4\i&:cr{ q, J) =D4 nog l a ; tejcitace 


FOR K-0 TO 3 : IP CFU D , Kl «£>CH (1 , KJ O 
K &J THEM CKUiKI-CKtUfK) = l^NK { 
OH2.KV , 32l-JeR(2,KU6,3Dl ,30,RF 
iHOVETO CR<£,K) -9,31;FRIMT Cft<l, 

K); 

• Mise a ziro du chronomkrt. 

SOiXF DT THEN D! -TIMER 

C!=Q:C7=Q:A5=D:FOR K=0 TO 3:CRU,K 
}=-i :VBVf -rammi 

• bfarcheJ Arret chronomztre. 

KAiir dt teem timer qff:HEMU 4,3,1 
f p Karche*:DT=Q :C ! =TIMER;ERA5EREC 

HE1TO 4, 3, 1, "fit l6 L ~ : DT — 1, tf Pl3 THE 

N C7=C7+(TIHER-CIJ ELSE C7-0:B!- 

VAlHTKUUMiiKffi;'! VAKV'J'K <0>J , 4, 4 :TI 
HER ON: RETURN 

■ rtcfww jitf to bouions "MarcHeJArret" 

ou "A{ise a zero 1 * du cAwncwidfrtf. 
S69;7J N=1Q THEN GQSUB MR:RETUKN 

■ f enetre pour choix du temps si 

564:CO90B 361 tTEXTFACE D:HQVETO 8, 

It iMtTM*P CDSsMtttfMO B r 3 3 tV9H*f M m 

u Dout as" : wove iv 12s, jaiPRrax-m 
inutes":PENSIEE 3 r 3 :FRAMEfLOUNDRE 

CT URBJTTMQ(D) I ,IS, 1£ (PEKNOPMALr 

KE1UKW 

• 6v£nemem$ dans lafen^tre pour choix 
du temps, 

THEN RETURN 
LHt^EDIT£ (1) : IF LEH(ED;>>2 THEN G7 

D9-V1L(ED5} :IF D9<1 OR D9>b5 THEN 

ST 

A1*=3TR9 (D9) ;A1£-RIGHT$ iftl 3 p LEJf ; A : 

5J-1) :A£=D9*fiQ-l:WIND0W CLOSE 2: 

b7 ■ -arjT-r TTTTn 1, ftl 5 , I A3, 21 J- 1 

120,35* -1-3:RETURN 

• Dcconncxioru 

555 :PRJNT§ 1,A25; : RETURN 

■ A/ei 'e^ tea mti^k^ da metm tnodc, sauf 
le made c our ant qui est cochi. 

$24 .TOR r-l TO 4.KEWJ 1 , I , Z"KH3 fl- 

ftJJ : NEXT: RETURN 

• Met 'on' tes articles du menu mods, sauf 
Is mods, courcnt qui est cackS. 

5J1 :1TMK i-l TO 4 ! MENU 1,1, (ft3^IJ* 
7 :NEXT : RETURN 

• Contenu dt la fenetre en mode 

"Consukati&i* , 

S93:PENSIEE I, I ', FRAMEKOUN U KECT VAX 
PTR (Y ( ft J ), T fi, 1 fi :PRNHORHaL : PENFAI 
V*SFHt{F (0) ) jFRAMERECT YARJTRfR 

f C) ) iFENNOKMTAL 

£34 ,EAA£mCT VARSTJU5 (ON iCa$=ST» 

/"tffJKAi&sj + H page":ir D 
9>l THEN CB5=CBS+"3 P 
HO VETO i (110 MlfiM (C3:C) ) / 2, 1 iPB 

UfT CB5;;RETOKB 



■ Kiiv h jntir Au rnxnpipur Ae pngps fipres 
oLiiim sur un bvuivn en mode 
"mnvuhfiti/m 1 ' 

377 .CI-DIAIjOG t 1 ? 

S70:El--l:O» Cl G03QB S71, 572,573, 

rU,S75,£7E = COSEB S"?B:<»JUD S34i 
LjQSDB b33 : RETUKN 
S71;B7-1:SETURH 

SMJB/=B/-1 ;R£TURK 

S7 4 : B7 =B7 + 1 ; E L = D : RETURN 

375 ;U7-Q7 tlQ-. 

57 6:B7=B9:RETURN 

' &ar cfcf bouions apris consultation 

57B:BUTTOM 1, (B7=1J +1 :K7TTOH 2, (»7 

<11J + 1:BUTT0H 3, (B7=l } +1 :B0TTON 

4, <A7-39J +1 » BUT TOM S, t (S7 4-10)>a9 
} * I :ttirrJXW 6, lb7=£i9^+»:jt6TUHN 

* Lecture tt aivoi d'unc page. 
53J:HZHU 0mCB$= B,, iA!=FREr ■) :CB 

S-fiOACE} (I {B7-1) ) i A!-VARPTH(T (27 

OK:IF Tf641 THEN ERROR 254 
if e: teeh pmifi* ; , CHR5 (i ^ ) , 
PRIHIfl.CBS; i RE TURN 

• Autorise les evinemenls* 

• Inicrdit les ivcncmaUs. 
S18:DIWJ0G 51 OP: KENT STOP : MOUSE OF 

* Fenesre. du. mods "Stnckage" 

86) , 4 :GOSUB 561: WIDTH SC:IF Cb-U 
- Otiv&ture d'un m>uv&2U ficklcr an m&dc 

"Copietfecrm". 

S70it>A=OsF$=MI*SS (0} iCOSUB S3 

140 IT THEM DjNF*"l IBDTTCM 1, Q 
: RETURN 

141 OFEJ! IJ e" r 3, F$ iMAME rS AS rS ( "7: 
XflBUTTUM i, 1 :Bi=-l: RETURN 

■ Tfuitement en mudc "Cupie WiLran" . 
SeO:DIALOG ST0P:IF £5=24 THEN LINE 

(If 1> {243,20i T 30, iKOVCT 

2 J : DIALOG ON: RETURN 
ISO TP E?=H? ^HEW C5=EBil±IP £^=3 4 
THEN 1 ?■! EL^H 199 

IP a3C[ES)>31 THEN S82 

DIJkiOC Otf : KBTtFItH 
S«2:IF E5="{" THEN E^'e - 
TV F5="|* TT77W PS^*^* 
IF E3-"(»" THEH 

IF E5-="\" THEN ES="c" 

TP E^="*" TSEM E?="V" 
XT E^=" [" THEM t$= 

T89:PRIHT E5;:GETPEN VARPTRfPL cQl 1 

iXF ?L (0) AMD PL(1)>237 THEM 
T88 

PBTMT l3,E*r - ai=M-l?V{0)=7U-l;A! = 
TOtrai|V(l) ) l^OKE AlfAl-l,AaC(Efl 
) 

IV JU^0V4 THW DIALOG OUtftETtfW* 



T90: PRINT #3,H5 



. ^ k H 

. : : DIALOG ON j RETURN ELSE GO 

TO 002 

■ Mise a jour da la fenetre en mode "Copie 

.^ft^^ENPa.T VARVTRf.F(ft] ) *-HGWKi 7,7 
70^ItIH£TO •. , Z • . PSWORKTlL . IF V 

(03 THEN V(Oj=V(0)+a;A!=VARPTR(U 

<tm?&l UAEDTRtU tan s V(Oi=,U{0J^I 
FETURH 

- Hlisc a jour dc lafcnctro <cn mode 

"freparationltmoi" * 



£54iLMHE(2,2}- (38 6,20} t f fiiLLH2 (2, 3 
Fichier : '.-jLT P$* m THEN PRINT 

■Sons titre";COTQ T12 
I=Iir3TRlt'5, "t'l :15=RIGECT5 i.'i,LEK;,- 
SJ-IJ 

IP WIDTH ( I£l -O£0 THEM PRIKT l$;iGO 

TO T12 

T13iI£=XPJT$ (I^.UM(t<:>-iy -TF WTDT 
H(I$ + "*_") -»3Z0 THEM T13 EL5E TRIN 

Tl2;LlHE(l€3 r Z3)-(ZZ3,41J f , ft: LINE ( 
l€5,24)-t225,40),,B:GOSDB SSSjLI 
lit fi, 4 JJ J™ (338, 271) , r B :P-2TUPN 

* Af^wn sir un houion en mndp. 
"Pi tyui utivtifDivui" . 

5B6:CBS=EDIT$(I] :C4=LZH (CBS ) :G5=ST 

R$ iCiM C?-RIGZIT$ (G5,LE1I (GC) 1) sD 
t=DIALOG(li :IF E&=^1 THEN GOSUB S 
S5 : RETURN 
IF u&oZ TIIEIT KETURH 

FOR J-l TO C4iN-ASC(KID${CB$,J,l) J 

-.TV M>^1 TETSM TP N<rl5ft TTTRTJ PBTH 
Til ,CHR$ CM) f ;30T0 387 
IF N=13 THEN N=6 

3',=-: :GOStiB SSesB4 = CiIT N=6 THEN A 

!=VARFTR{£i (OH :M[ 14 4 
567:A!=YARPTR(Z1(0)}:A! 6: NEXT: RET 

• Affichage du nombr* de cor act ere en 
mode ' 'Preparation! En voi ' ' . 

5B5:LINEM 66, 7 51- [7?4, 391 , 30,HF :IF 
C4 TJ3EM HO VETO 1C0^ ( 56-WIDTH (0$ 

M\2,37:PRINI G5 
RETURN 

■ Initialisations pour chaque chongement 

5«0:r? = "-;CL5:TT DT THEM 121=0 : TIME 
R OFF 

KEWTJ 1,A3, 1iA3-H1 iMEHU I,A3,2iRBTU 

■ SoitS'prttgrtimfnt: dc trutitmcnt dzs 
pjtputx 

:- .if err- j 3 teem resume next 

IF ERR-254 THEM IF T{64)— 49 THEN 

RE5PME VJIXT 
MIMDOW Z t "" , 62}" \*M t LLQ) t -i. :w 

XDTS S G r GOSUB 561 iTEXTFACB 0:IF 
on BRft-241 THEM s89 

rC=-6047:GUSUB 516:PaT(8,BJ,X(0J;I 

ETO £16, *i : ;PRIHT CC^r-HOVETO 

17:7J ERR=254 THEN PRINT"Fichier 

d ■ inao ^ - nt r -z li iB 1 O . * ; : C^TO £ 1 1 

XT EKR=37 them ?r mi " e r re T j z tl'entr 



Pom's n° 21 



fies/sorc les . " ; :GOTQ ill 
IF ERR=&1 THEM FREHT H Bj.squette sat 

ukc.-j iC(W<1 Ell 

IF EHJl- if u THEN *t lit i 1 bisque tee ptu 
iCOTQ Sll 

?RIMT"£i.ieui ayatcmc . m f 

S11:0M A3 GOTO 512, 51 J, M 4,513 
Sl^-DttTWr* Rn rftrji strgraent" : ;HOVXTQ 
96, J3.FRXWT"lir.po«ik>l = * iC0£UB 

510: IF 6RL-12 THEN CLOSE J : KILL 

IT EKL=1&1 THEH T?-"" ;RE3UMS lots 
IT ERL^llO OR EHL=1 II THEN KILL F5 

( RESUME S&3 
It" KKlr^ll TEEN RILL ^5:CL03B 3 ;KI 

LL F2S: RESUME S63 
RESUME IIEXT 

S13:G0SUB SlUlIif" EiU^mi 1HEN CkQs 
E 3:KILL FS + 11 -T" sFS = " :BESUHE 12 



RESUME NEXT 

si* >r«n<?ira si ft; IF ERL=130 THEN RESU 

ME KB XT 

IF BR1=I41 THEN FS = " " lEESUHE HU 

rr na-ito then uFstrsm is 

RESUME inn 

S15:G0S0B S1Q:IF THEM FS=" 

fx iRBCujiE : c:- 

IF EKL=L&2 THEN CLOSE J:KESUME 
TP ERL-lfil THEN RESUME 164 
RE3T3HE KEXT 

S89:IC=1:G0SUB SI 6 ;FtH {3 r S ) , X (0} :H 

11 TEEW 590 
KOVETO 46, 17:PRINT u MaxilnUln 64 page 

e. Id fiohiar va";MOVfc!f& 4S,33^» 

E NEXT 

ge~+L^ iu, iti5=l) + ij +"* coivLenai'+i; 
$1%. fS5=mi)+" dug d© 2000 car 

:CB5="elie"+C5 [2, (*«-lJ tij 

A, (D5-1) »1J ;PRXHT C3S iCQSVS £10* 
RESUME 11U 
51fi_'A!=VMPT&(Wfan :AJ IC.VMPTRfX 
{ > ) : RETURN 

510 .-WHILE MOTSEfD} : HERD; WHILE MOOS 

E<0J=C=HEHDtWTMCiO» CLOSE 3 ^ TV fcB 
R=2 4I THEN RXT17KW 

GOSUB S91:RETURN 

XUKN 
51: RETURN 

' Curscur cn forme da mottfre, 
SJ:A!=VAKFTR(Z (UJ J JAS 4 JiOSlURN 

■ ChtLUgu 12 f/uirttS* 

361:TE0CTFCMT : TEXTMODB X:TEXTSIEE 

• Qitverture de Vmterface COM J m pnlrfo 

j 1 ^ 1 1 OPZ37 "COMl:"^-V?-r"00 # E,7, 1" FO 

R INPUT AS 2 LEM=1 00 Qi RETURN 

• Quvmure de I'lmerface COM J en sortie. 

R OUTPUT A3 1 ; RETURN 

- Z&nc d' edition pons is mode 

"PreparmionfEnwr . 

6 9 )" i RE XTIRH 



166, 25 ^ - {224, 39) , 3G,BF iRETURN 

Source 'ClicAsm' 
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MDVEA.L 


AU,A1 


MOVEO 


124, dj 


CLR 


(Al) l 


mztk 




MOVE , t 


oc r : b \ _ ■■ 






LEA 


Dxdfjedu, AS 


novx 


IS (AO) , {AD 




Ab 


RTS 

L 




LINK 


as.#q 


T,F.i\ 


TanrjwrnTf^ art 


CLP,. L. 


IS (AO) 


MOVEA.L 


fl(AG) ,A.l 




tAlJ *,JjO 


LSL 


18, DU 


HU VS. . B 




MOVE 


D0,3S{A0J 


MOVEO 


10,00 


MOVF . ft 


uu+,no 


LSI_,L 




HOVE.D 


IA1) .,B0 


LJL,L 


18, DO 


MUVt.H 


{Al( f UU 


MOVE. I 


DO,32<AO) 


MOVE 


#1,44 (AO) 


MOVE.L 


12(A6>.46(A0 






BM.. S 


Sort £a 


rcl 
LINK 


no. 1^ 


LEA 




CLR.L 


lZiAC) 


Clo** 




BRA.S 


Sortie 


Hf-apcj ■ 

5 


nc 


DCIl.D 





Source 'Debt' 



HuuLlnc U'dLLcilLe. Buuule: ycjidajH. 

N interruptions vioeo. 

H est passe depuls ie program-ne 

Basic par la pile lentierj , 



-Trap 



TlckCount 



LINK 


nt, to 


HDVL 


(AOi ,D3 


EAT.L 


D3 








MOVE.L 


iSP)+,D4 


ADD. I, 


D3. D4 


SflflG 


1 4 , SP 




CMP . L 


(CP) * f D* 


BHI.3 


1) 


UPf»«A 


us 


RTS 





Source 

'ConversionAsm' 



t Scutine de conversion ties 

r ftararrr Ar»!i nnn ASCTT *>r rtfts 

I -. - du earaetirc ou de 

i CCLannandt ta- poaji po* l«* pile* 

- ud 3uiLC lie ^dld^L^CS 

; xfeSaltaate est placee daks la 

; zone "taicpon". 

; le La zor.e 

r indlaue le nombre de carac teres 



Hon 
Fin 





AC , tO 




B f U 1 • , L~ 

v \ t%v t f y v 


_ 


I'llRMfl flf' 


MQV5Q 


t : - , -. - 


T T t 




("MP H 










/ill / irti 


. - . 




D . 3 




■ - - ■ - 


J ', A . f 




Deux 


MOVE. a 


13, ao> 


BSA.S 


Fin 


MOVE.l 


11* f AQ) 


ns£ 


Pin 


HOVE , ft 


t5 (AO) 


DRA . 5 


Tin 


AjjLJy 4 !_■ 






JJ J. j DOUL.1C 


5r 


f in i 

IA*J| 




Ad 


RTS 








DC * I) 








PC. 4 








nr ft 


san. si fl. S4n. s fii 

V Q U ^ J ^ ij' "X U ^ 






DCB 






* *i' 




— - - ? -i f U ij 




■ ** 








I't" 


DC.B 


5*1,515, $48,565 




(T 

S54,ST 9. 543.SG3 


oca 


; V 






UL..3 






;o - 


DC.B 






;V 


"j.: . 3 


$9D,S19,S41-S75 






DCS 








U3J.H 


^sr r «i9 f *4a r »ta 


DC.B 


5*1, $19,530,500 




:T 


nc.H 


519,5?^. 500 






□c,Q 


CA« r C2?,f00 




.'ft' 








;"±- 




551, $19,531, $00 




:'tc 


rv r 


SrF,ST9 f SfiA,S00 




; W 


□CD 


«cr,ci o # dA, too 




■ ,-r " 









TV* R 


sfi7 , son, son, soo 










DC . B 


POO 1 , Al f ¥00 










LA. . B 








; Jteptuuon 




pr ^ 
* 


SOB. S13.543.S00 






► Guide 
















DC* B 






DC D 


^01*913, a-l p& j ^co 






; CorrccUGn 




DC.fl 


504,51i f 54 ' 1 5tU 






; Suilc 




DC.B 


SOfe.rSia, 548,500 






: Cnnraitoii/Fin 




DC.B 


^00, 511, 500 




DC,L. 





Source l MAJ.Asm' 


, * * * # + M>**t*ttli *********** 


r Houvi 


ne de mice A do 


,- l«i 




"^-ujjlc 


; aecran". 




i Les caracte^s 


a artlefter 


; aa-at 


dans ~un tableau de 


; variables ent lerea » 


; L'adresse dil p 


realcr 


. ^1^™,,^^ nsf pa4^^< par la 


1 pile. 






■ leap 




5AB93 


.Trap 




r i .".l- " 




LINK 


A6,#0 




MOVTO 


I-1.D3 




HouEa.r 






MOVE 


(A3) *,D4 


CR 


ADD 






KOVE 


tz,-(at> 




MUVt 






MOT«CD 




Boucle 


S'JBQ 


#1,D4 




BHI.S 


Fin 










MOVE r □ 


(*3y -i r r>0 




CMrz t D 


tl3,DO 




QEf , □ 


ca 






DC, - 15?; 








BRA. S 


Sonde 


Fin 




AC 




RTS 





Vous avez tin 
Macintosh, mats 
pas le Basic ? 



Slit la disijueUe 
d'accompagnementt 
vmis trouvprpz nn 
^RUNTIME* du 
Basic Microsoft 

pour utili^r 
iiuririaltnit'ut les 
programmes dc la 
revue. 
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Les programmes relatifs au 
Minitel que vous liiuz dims ces 
pages, necessitent une 
presentation sommaire des 
aspects soft et hard de nos 
terminaux telematiques (hard = 
materiel : il no sera pas question 
de Minitel rose dam les lignes 
qui suivciu !). 

II pem fine utile de rappeier dans 
ce preambule que, dans les zones 
de&servies par raimuaire 

electronique, le Minitel est graruit 
ce qui dnrme im modem d'un 
rapport qualite/prix, , . 

incalculable 



Le 'hard' 

Les programmes de ce numero 

supposcnt que votre ordinateur 
esf eqnipee d'un p. carte interface 
RS232, cumante sui nos micros 
mais incompatible directement 

avec la V28 dti Miniiel, e'esr ce 
qui impose de fabriquer ou 
d'acheter le cable de liaison 

enrichi d'un petit montage 
inverseur. Ce petit montage est 
pcu cofiteux : 30,00 h 50,00 F 
selnn les connertPJirsirfiHses, si 
vous, 1c faites YOus-meTiiG, 
environ 200,00 F chez Tune de£ 
nombreuses socierds qui le 

proposent, Olitec* par exemple. 

En ce qui concerne le 
raccordcmcnt des apparcils, il est 
important de veil ler a ce que le 
MiiiiLcl suit isulc du seeleur avant 
de brancher et debrancher. 

La prise peri informatique a 
laquelle vous peliez votre Apple 
dcb T vre ct acccptc des aignaux a 
1 21XJ bauds, valeur par defauL 
La plupart des Minitels livrc 
aujourd'hui disposent d'une 
louche FNCTqui pcnncl, ciitic 
autres, d'effectuer des copies 
d'ecran vers ladite prise : 
FNCT-1 puis A ou bicn FNCT-I 
puis H declenche le processes, 
ANNULATION rinterrompt. 

Lors de ces copies d T ecran, 
sculs les caracteres ASCII suut 
transmis, les eventuels 
graphismes Videotex ne le sont 
pas. Pour changer la vitcssc de 
transmission vers la prise : 

- FNCr«PpnisldonnelU[J 
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bauds \ 

* FNCT-P puis 4 duwie 4800 
bauds ; 

* FNCT-P puis 1 donne 1200 
bauds. 

Les programmes qui auivent 
gerenf en x -m ernes les 
changemcnts dc vitcssc, vous 
n'aurez done pas a in f erven ir 
La pilbc se fail Lecho cn 
permanence de ce que recoil le 
Minitel, sauf lorsque vous 
1'inhibez en faisant FNCT P puis 
I p sen les les copies d'ecran 
passcnt alors. 

Nolens a 1 'attention dc ccux qui 
se sen tent une Sme de 
t ielematiriei]s\ que le piotooulc 
utilise sur cette prise permet de 
s"adresser non seulement a une 
imprimante ou a un 
micro-ordinateur» mais egalement 
a un pcriphcriquc donne, parmi 
plu si en rs autres hranches 
siinultaacmcnt, 
presqir Apple Talk. . . 

Dans ses echanges avec le reseau, 
voire terminal recoil les 
informations a 1200 bauds et les 
transmet a 75 ; les appareils livres 
auj ourd r hui sont tous 
retoumahlex (yi teases inverseesj. 

Le soft 

La gestion de Tecran du Minitel 



n'ftst pas rtes pins simples • 
taiactercs ASCII fABCD), 
polices l paralleles (%&6ceCE) et 
aurres semi-graplriques, coulcar 
de fond, couleur de caractere, 
masques. Ajoutons Tobligation 
d'ecrire un espace dc validation 
des changements d'attnhuts 
graphiqucs pour eclairer 
rensemble. . . I programmes 
d cnnegistremcQt Minitel dc ce 
numero stockent 1'integralite de 
ces informations fsans devoir les 
analyser) et lors de la 
consultation, vous retrouvez 
toutcs vos coulcurs. 

Notons egalement que les 
caracteres que vous tapez au 
clavier de r Apple sunt transmit 
au Minitel, transmis a l'eventuel 
serveuren ligne, affich^s & 

Tccran du Minitel puis transmis 
vers la prise ou votre Apple 
pouixa les recucillir pour les 
afficher. Lorsque votre Apple 
UansmetUa ull LcaIc a un scrvcur, 
le programme tiendra compte du 

debit et du temps n&essaire au 

scrYcur pour interpreter leg codes 
speciaux de type SUITE. 

Pour vos programmes, nous 
donnons en annexe la table de 
correspond a nee des caractcres 
disponibles sur vos Apple avec 
ceux do miru-ierminal ainsi que 
ses caracteres semi-graphiqueg. 



liiiiiiBilsliiiiil 

1 32 33 34 35 36 37 3B 39 40 41 42 43 44 4b 45 4^ I 
i 4Q 49 50 51 52 53 54 55 56 57 50 59 60 61 62 63 j 
! 64 65 66 67 68 69 70 71 11 73 74 75 76 77 78 79 ! 

lisaniEiEisiaiEiii 

j GO 81 82 S3 81 85 86 87 88 89 90 91 92 93 04 95 ] 

Jouh do caractcrcG graphiqucs VidootCH (ASCII decimal) 



En attendant no 5 prochains 
programmes rie miriTniinicatioTis 
via Minitcl, ne manque*: pas de 
nous faire part de vo$ remarques 

ei suggestions. 



*SarI Olltcc- 20 4 rue de 
Kemenauville - 54000 NANCY 
Tel: 16 83 35 00 65 
Tarif : 225,00 F, pour Apple J[+, 
//e, ffQ et Macintosh. 
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mji> jT. ejuiit Par tumpU t U\ du 



vows 1 propose 
"Dominos" 

Apple ][+Jle, He 
Thierry Haurie 

II est inutile de present^ 
le jcu de dominos; 
eclui-ci b6n&f\c\t d\m 
graphi5;Tne tres soigne 
(en cnuleiir si vous 
dispose?, dune carte 
Tfiaf Mauve") et les 
messages transmis par le 
programme sont, au 
choix, en Frangais, en 
Italien, en Allemand ou 
en Anglais. 




mm ran wm 



80,00 F TTC 
franco 
Ron tie commande 
page 74 
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€ki§tim Kmd 




i£ present programme a pour but 
d'enregistrer dcs sequences dc 
consultations Minitel, rle lesresfi- 
Luci, d'ciucgistlci et d'imprimcr 
des ecrans. II a ete congu sur un 
Apple //e, et fonetionne egalemeut 
sur un ][+, un //c ct mfime un Tics 
avec, dans re cas, un gam de 
temps sensible a l'affichage et a 
l'impression. Pour les //ft et 
IIcjs, la cane SSC est indispen- 
sable et doit etre configured 
cnnime ci-dessous. Elle sera 
installcc dans lun des slots, cntrc 
1 et5. 



w1 



rw2 



on n fii ifi n 



nff i 



on 
off 



1111 



modem 



itrminal 



de la carte 

SSC Apple 



Dans un des memes slots, une 
imprimante pourra etre connectee. 

Sui 1' Apple //c, une routine fort 
pertinemrnent nominee PARAM 
configurer* lc port 2 pour le 
Minitel et le port 1 servira a 
rirnprimaiue. 

S'il vous manque 1'interface 
Miniiel ou celle pilotam 
Vim prim ante, seules les fonctions 
liees au peripherique conceme 
seront indispomblcs. Autrement 
dit il sera toujours possible 
iTcwegi&UGi el Ue luusuIicl des 
informations du Minitel sans 
imprimante ou d'imprimer des 
informations prealablement 
sauvegardees si votre interface 
scric n'est pas connected 

La liaison 

Les intertar.es KS 232 (SSC) et 
V28 (Minitel) dclivrant des 
signaux serie incompatible*, il 
vuus faut piendie votre fer a 
souder pour realiser le montage 
inverseur ci-c outre, Les 

composants trouveront lew place 
dans i'une des prises ou dans un 
boitier a part. 



Si vous douiez de vos talents 
dele c ironic ien, vous pourrez 
vous adresser a Tune des 
nombreuscs socictcs qui 
proponent un tel cahle : cttons par 
eAetnpie la Sail OLITEC* 



Les deux modes 
principaux 

Le programme propose ici pent 
rccevoir du Minitel, rcstitucr sur 
Minitel, sauvegarder et recharger 
lc que nous appelleiuns pai la 
suite sequences* II s'agit des 
pages Minitel complfer.es, 
chargees de tons leurs attribute 
graphiques : I'ordinateur enre- 
gistre dans cc mode tous les 
xtgnaitx rlkprvnihles sur la prise 
pcxi-inforniaUquc, La consul- 
tation de ces sequences se fait sur 
Tecran du Minitel, les pages 
reapparaissant exactement comme 
lors de renregisnemeni mais plus 
rapidement. 



Dans le mode que nous 
appellerorts copies d'icran, 
I'ordinateur n'enregistrera que les 
endes ASCII delivres par le 
Minitel lorsqu'il effectue un copie 
d'ecran. Les ecrans enregistres 
dans ce mode ne sunt pas 
restitues sur le Minitel mais sur 
votre imprimante ou bien 
transferes dans un fichier de type 
'TEXT 1 pour exploitation future 
par un traitcmcnt de tcxtcs. Vous 
opterez pour ce mode dans la 
euiisuUation dc 1 'annua ire 
electronique, pour, par exemple 
rc"cupc~rer des adresses. Le 
premier mode servira surtout 
pour coTisuiter sans contrainte de 
temps des informations qui nc 
necessitent pas Tim predion. 
Rappcluns que* sui les Minitel 
qui le permettent, la copie d'ecran 
s'obdent par FNCT-I puis F, ou 
FNCT-I puis A selon que vgue 
desirez ou non les minuscules 

aeccntuccs. 



LTn mode auxiliaire 

Dc facon aeccssoire, le 
programme vnns permef de 
trans mettre au Minitel un fichier 
de type 'TEXT 1 que vous aurez 
pr£par6 en tiaitemem de textex. 
Ceei evite de perdre un tempe 
cotiteux lorsqu'il s'agit de taper 
un texte 4 destination d'une 
messagerie ou pour utiliser k 
moindres frais lc futur service dc3 
FIT, Posteclair/Minitel. 

Lc programme 
Basic. 

...ne joue pas activement dans la 
relation Minitel/ Apple mais gete 
les d if fe rents menus, intcrccptc 
les evenfaielles erreurs HOS, 
s'ueeupc des ebai^cuieuU ct 
sauvegardes ainsi que de la 
consultation des copies d'ecrans. 
Lors de vos adaptations de ce 

programme, il faut garter en 

memo ire les deux points 
suivants ; 

* la place dkponible une fois les 
variables initialisdes est trfes 
redui te ; 

- il ne fonctionne tel quel 
qu'avec ie DOS, mais comme 
pour lc jcu SNAKE paru 
recemment, ne n'est pas un 
handicap puisque le 
programme est autonome. 



La partie 
assembleur,.. 

est appelee par le Basic par 
l'ordre 

AD ctant I'adrcssc dc chargement 
de la routine, SI . etant le port du 
Miiiilcl ct COMMANDE prenant 
une valeurde I IS, 

Com man de = 1 

La routine est en mode 
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cnrcgistrcment dc sequences, les 
caracteres rectus sont stockes de 
32000 i 395FF, tliaque (idiesse 
de 'debut de page 1 Minitel est 

srocke entre $2500 et $23FF, 
Une nouvelle page est reperee par 
rutiiisation rTune fonction 

Minitel (Correction, Annulation, 
Gmde_,.), uniquement si au 
moins 100 caracteres ont etc 
re^us depuis le dernier appel a 
une fonction. 

Ainsi, a la restitution* rordinaieur 

ne marquera pas de pause si 
CORRECTION n'a fait que 
supprimcr un caracttre dans unc 
zone, de saisie mais tl s'arrerera si 
CORRECTION vous a scrvi h 
revenir au menu de 1'annuaire 
glearomciue. 

A 1^00 caracteres de la 
saturation, la routine cmcts 
que.lqties 'hips' et, k on se 

dlrigc vers lc Basic qui propose Id 
sauvegarde. 

La routine lit en permanence le 
clavier et se charge de la 
conversion des ordres clavier en 
codes Minitel (Envoi, Suite, 
Correction...) ainsi que du 
rccodagc des caractcrcs non 
ASCII ( l e' %* y % y 'u\„). 

Commande ss 2 

C'est le mode restitution des 
sequences, les caracteres sont lus 
cn mcmoirc, ct envoyes au 
Minitel via la carte interface serie, 
unc pause eumi uiaiLjucc cuUc 
chaque *page\ 

Commando - 3 

C est lc mode 1 cnrcgistrcmcnt dc 
copies rt'ecran' La prise n'etant 
par forccmcnt inhibec sur le 
Minitel, les eventuels douze 
capacities destines aux 
peripheriques du Minitel sont 
supprimes. On compte par la 
suite les rctours-chariot pour 
reperer I n Hmite entre les 
dlfferentes uupies d'ceiaji, 
Chaque fin de copies d'ecran est 
icperee par un code $FE dans !e 
stockage, et la fin des- copies par 
$FF. 

( 'nmmnnrie = 4 

La routine ne fait qifernertre un 
l Dip f plus agrcable que ITiabituel 
CTRL-G. 



Comment faire ? 



1 R$atk&2 h csbte interface, 

2 Vous avez un /re ? passez a i'&tape 4 

3 Configur&z fa cart& S'$ri& Appb SSC comma indiquo, 

4 Vous avez ta aisquem Horn '$ ? passez a r&tape 8 

£ Safomsoz et sauvegord&z fa programme Basic (sur diequotto DOS), 

6 Saisissez er sauvepar&ez le co6e MtNfTEL, 

7 Vous av&z un Appfa J/c 9 sslslssez et sauv&go/dQz fa code PARAM, 

5 Faites FtUNM(NBA5\ 

Le mode Vemplot ci-contre et ies menus vous guiaeront... 



Cnmmnnrfe =5 

Ce mode est utilise pour L'envoi 
dun fidiici 'TEXT* au Minitel . 
La routine prend le caractere que 
le Basic a stocks en $fj, 
eventueliement le recode (cas des 
'e* 'ft' *g' *a T J et Tenvoie au 
Minitel 

En fin de routine sont installs les 
habituels octets de correction du 
bug de I'ON ERR. 

Sur le //c 

La cane sgrie esi rigK b 1200 
bauds, parite pake, 7 bits de 
donnees. 1 bit de stop i Taide de 
CONFIG, Les troia octets 
necessaires sont installed dan 1 ; la 
lueujouc piincipalcdans un 'Uou 1 
de la memoire-ecran, puis 
transferes en rncinoiie auxiliairc 
parMOVEAUX. 



Mode d ! emploi 



L'cnscmblc des choix dans les 
rnenns se fait par 1'utilisation de 
rune des quairc fleches, ESC 
signifie abandon et provoque le 
retour au menu prfefidenc. On 
accepts 1'option visee par la 
fleche & finterieur dun menu 
avee RETURN, 

La premiere ctape, mdispcn^able, 
consists a definir la configuration 
pour indiquer les numiros de 
ports de la SSC reliee Minitel et 
de rirnprimante. Par defaut. il est 
prevu 2 et L Vous changcrcz cc 
choix par detant en moditmnr la 
lienc Bask n° 20 (3L est lc port 
Minitel et SI le port Imprimante). 



Minitel Vers Apple 

Enregistrement de 
sequences 

PDM'I MIHIfIL/U»Il 

HIHU CINHAXL 

---> hikiihl ting J:rrL3 

CHAHCSR 

A t rrv* C'lgnm 

■ WOI D'UK riCAIIH 
ft* 



II faut se servir du clavier de 
1' Apple // on lieu ct place dc telui 
du Minitel, Ceci permettra a 
rurdiuatcux de rcpcTcr les debuts 
de 'page*. Un rappel des touches 
de fonction est alors afllchfi : 



CTRL-X = 
DEL ou CTRL-C - 
TAR on (TKL-I = 
RETURN = 



Annulation 
Correction t 
Suite, 
Envoi... 



HIVIlIL/jLPPLA 



9 



H 1 HIIEL tiki Arru 

*--> HQUIHCIJ 

rnvTii r. »."is*n 



ESC interrompt de fa^on 
provisoire renregisrrement 1 une 
louche quelconque relance alors 
renregistreraent. sauf ESC qui 

1' interrompt definitivement, lc 
Ha sic vous proposant de 
sauvegardcr. Si la sauvegarde 
n'eet p^s executee (vous avez 
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repondu par un simple RFTLIRN 
au iwm dc fichici), TupLiuii 
SAU VEGARBE du menu 
principal sera en video inverse, a 
titxe de rappel. 



Chargemcnt 



FDK ' 5 M -± -N LTI Li i Hf f rum a 



autre valeur oar l&s resultate dune 
LejUativc d'nupicssiuu soul... 
prevkibles. 

Envoi d f un fichier 



Enregistrement de 
copies (i'ecmn 

Avant chaeune d'elles, vous 
devrez faire RETURN, l'Apple 
comptant alors les retours-chariot 
qui passent... Si la copie tTecran 
est nUerrompuc par ANNU- 
LA'i ION sur le Minitel ou bien si 
vous avcz fait RETURN aprcs lc 
debut de la copie, faites ESC 
pour iiidiquci la fiu dc pa^c , 
TApple en attend alors une 

nouvelle, ESC permet d'aban- 
donner ce mode et, bien entendu, 
la sauvegarde estproposee. 

Consultation 

Sequences 

La consultation se fern sur lc 
Minitel. Si ce dernier est recent, 
vous pourrez optez dans le 
dernier menu pour 4800 bauds, 
l'affichage devient alors ties 
agreable, Lcs flcchcs vous 
permettent d'avancer et de reenter 
dans la consultation, cl ESC dc 
conclure. 

Copies d'ecran 

La consultation con3istcra cn 
l'impressinn cm la creation rt'im 
fichiei 'TEXT*. Sin Image Writer/ 
DMP T Timpression se fait en filite 
elargi (code de uontrflk a la fm dc 
la ligne 795, a adapter a votre 
imprimante). Sur les autres 
imprimantcs, aucun code de 
crmtrnle n'est envoye. 
Vous pourrez egalement creer un 
fichier 'TEXT a partir de vos 
copies d'ecran. Dans lcs deux 
cas, les copies sont separees par 
une iigne de 40 '-\ 

Transmcttrc 5 1'ordinateur des 
sequencer alors qtfil attend rie* 
cupics dcciaus provoquera des 
effets etonnants lors d'une 
£ventuelle consultation a 
rimprirnante... 



*- -> Lie T SOU 1 

LHCT5UR 2 



Lc nom dc ficriier dernande peat 
toujours etre rempiace par un T 
pour obtcnir lc catalogue des 
disqnetrfis. Un simple Ketour- 
ChaiiuL signific que vous 
renonce2 a l'operation mais, bien 
sur, vous pourrez renoncez '& 
renoncer... Le choix du lecteur 
vous est propose apres saisie du 
nom ct, lors de Toperation, les 
rtitferentes erreurs disques sont 
intcrccptecs. Selon lour type 
(sequences ou copies d'ecran), 
lcs noins dc ficiiieis soul piefiAes 
par 'S. 1 ou *C.\ Ces prefixes ne 
serveni qu'k vous reperer dans le 

catalogue de la disquette ; il est 
inutile de les taper car ils seraient 
simplcmcnt ignores, 

Sauvegarde 

C'cst lc menu par lequcl yous 
passes obligatoirement a Tissue 
d'un cmegistreniciiL. Mcmcs 
conventions que pour le 

chargement. 

Options 



FDM 1 8 iijviUL/irrbi -' ; 



' — > PORT MI* I TIL 

iltfRIMAHTI 

IHIDUft 



Cc menu vous pcrmct dc changer 
les numeros de port par defaut 
puui lc6 MiiuLcl cl Imprimante. Si 
aucune imprimante n'est 
connected il convicnt de mettrc 
NEANT et non de laisser une 



□FT tO« 9 - PORT HIWlTIt 

FORT 1 

'- -> PORT 2 
PORT 3 
pnwT J 
r qivT i 



Ce fichier doit etrc dc type 
TEXT, certainement cree par un 

traitement de texies. Les 
Retours Chariot [CHR$(13)] 
sont transformed (ligrie 4440) en 
lcs codes 19 72 qui equivalent i, 
.SMITH pour le Minitel, les 
serveurs attendant gcncralcmcnt 
ce code pour passer a la ligne. La 
boucle de d^lai qui suit permet 
audit serveur d T exploiter ce code 



SUITE. 




Source 'T.Param' 

(unlqucmcnt //o) 

2 * Parametres pour 

3 * port 3 du //c? r 

1 * $38, $GB, $81 cJa/lS 
5 * Inn of:^p?^?f.<? $47C- A 



7 


* Auxiliaire. 







^ 






9 




ORG 


$300 


10 




OBJ 


$300 


il 












LDA 


*$W 


13 




STA 


$47C 


14 




LDA 


i$€B 


15 




ETA 


$4?D 


16 




LDA 




1? 




STA 


$47£ 


18 




LUA 


f>7C 






STA 


$4? 


zo 




STA 


$3C 


21 




LDA 


n 


22 




STA 


$42 


23 




STA 


§3D 


%4 




LDA 




25 




STA 


$3E 


?£■ 




hna 


§4 


27 




STA 


$3P 


28 




SEC 




29 




JMP 


$C311 
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Source 'T.MINITEL' 


60 
CI 


TXA 

CMP 


ti 


129 
130 


JSR 

LDY 




Ass&mbJeur Big Mac 


62 

: 


EEQ 

CMP 


03 


iJi 
T 17 


LUA 
. TSO 


t<m 

STRIVIT 


tfotc . 






64 




0£<tl 


133 


•JSR 


KEY IN 






€5 






134 


CMP 




fiixqupli& d nrmmpngnemptrt Pom*s 27, 




J'.'.-T' 


f J 


XJ-J 


SEQ 


EI£fER 


en format TEXT pour permenre ia 


6? 


BNE 


DEB2 


136 


JSR 


MESEN 


recupiration pay \*otre assemble us. 


S3 


JMP 


conccx 


137 


JHD 


BCL 




" ill 

ft ili'ji i i 




69 DEB2 


CMP 


*4 


138 FINER 


LDY 


40 


1 

7 




76 




D2B3 


139 


LDA 


ftPF 








yi 




i — r 


140 


S1A 


fS i t X ~K i 


j 


* Mini tel /Apple 


77 npm 


CMP 


45 


Ml 


THJY 


4 


* 




73 


BUS 


ERR 


2 42 


INT 




j 




74 


JMP 


ENCAP 


143 


I NY 




o 
7 


* CALL 
* 


8266.SL0T.COM 


75 ERR 


FTS 




144 




(PAGE) f Y 






76 






145 


JMP 


VTAB 


a 






7? 






146 SI 










LST OFF 












§ 




tb * Mode 


enregistrement 


14 / 


LDX 


tv 


i rj 
i fa- 




ORG S2V4A 








143 


BEQ 


TARL£ r V 
TIN 


il 






80 






j. £. 


LAKAL 


* >b 


Rl MF.SFK 




WAPt 


150 


CMP 


CAUAC 


1 ^ 


STOCK 


57 


32 


Lor 


tJME 


151 


BBQ 


OK 


I 4 


PAGE 


$16 


B3 


- - r 

LiUn 




152 


IM 




1 z 

i j 


DRAP 


$1A 


84 






153 


INX 




1 s 


COMPT 


tie 


85 


D7"C 
Ki J 




IM 


I NX 




I 1 


DRAP1 


S1E 








255 






I ff 


Ctt 


P34 


a i 


JSR 


MESEN 


1 36 


SNE 


BCL1 


13 


LV 




SB 




I HI TA P 


J.S7 OK 






3fl 






03 OCh 






138 


TXA 




21 


STATUS 


$EB 


tin 


^ " T 




159 


CMP 


t45 


22 


DATA 




31 


BMT 


CLAV 


ICQ 


DCS 


SUITE 


23 


SLOT 




92 


LDX 


to 


161 OKI 


LDY 


iO 


24 


KBD 


$CQ00 


33 






162 


LDA 


COMPT* 1 


25 


STRODE 


- SCOID 


94 


AND 


M 1*1 □ 


163 


BNE 


PLDE1 00 


26 


HP 


SC030 


QS 


DP/5 


Oft 


1€4 


LDA 


COMPT 


37 


STUOUT 


- tDB3A 


3 b SSQ 






ItiS 




two 


2tf 


GETBYT 


*< $EbF3 


$7 




\VAif\f X} 




RC£ 


P I. [\F 7 fl 


20 


BASCALC 


= $F3C1 


38 


LU1 




167 MODS100 






30 


LLXEUL 




94 






168 


AHC 


{PAGE} t Y 


17 


KF.YTN 


» Srnflr 


130 


Q&A 


f ti ooooooo 


163 


STA 


(PAGE) , Y 


32 


COOT 


— 3FDED 


M.UM. 


STA 


Sir/ 


170 


sec 


M01 


HI 






102 


T?fO 


3TQOIK 


I 71 


INY 




34 


*■ 




103 


BXf'C 
BftCt 




1 12 


SEC 




35 


* R&cupere n* slot et 




INC 




1 73 


BCS 




36 

3 7 




195 


LDA 


V JL WVJl 1 J. 


I /4 MUl 


I NY 


CHMPT-H 






1G$ 


CMP 




I7S my 


LDA 


38 






Lilt 


iwt; 


SS2 


176 


ADC 


{PAttt , T 


J* 






TOR 


DEC 


STOCK 


tfti 


STA 


(PhGF.) > Y 


AO 




TXA 


103 


C8C 


STOCK**! 


l 75 


J5R 


camp- 






PtiA 


HQ 


JSR 


VTAR 


J 79 


JSR 


TIP' — * 

INITCQ 


42 




CLC 


111 


LDX 




100 


JWP 


svi rr 


■fj 
4 4 




ADC ifCO 
STA SLOT+1 


112 


LDA 




181 P WEI 00 








113 




STROUT 


132 


CLC 




45 




PLA 


114 SSI 


JSR 


KEYIN 


183 


LDA 


COMPT 


46 




ASL 


115 


JMP 




184 


ADC 


(PAG£),Y 


47 




ASL 


116 SS2 






18> 


PHA 




4c 




ASL 


117 


INC 


COMPT 




BCC 


PL1 


4$ 




ASL 


US 


MNt 




US/ 


INI 




SO 




ALU. t$G3 


•tin 






inn 

i nM 


sf.c 




57 




STA STATUS 


120 553 






103 


BCS 


PLZ 


32 




STA DATA 


121 


JMP 


BCL 


190 PL1 


IKY 




53 




DEC DATA 


122 CLAV 






131 PL2 


LDA 


COMPTi-1 


54 




LDA i SCO 


123 


BIT 


STROBE 


192 


ADC 


(PAGE) , y 


55 




STA STATUS+1 


124 


LDA 


KBD 


193 


INC 


RltCS 


56 




STA DATA* 2 


123 


ORA 




194 


INC 


PAGE 


57 




LDA tU 


12f 


STA 


CARAC 


1SS 


LDY 


*1 


SB 




STA SLOT 


127 


CMP 




190 






53 




Jbtt QETBtT 


128 


she 


SI 


797 


JSR 


CON TP 



58 
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J 93 




DEY 




2 €7 TQUCU 






1?K 








1 33 




FLA 










337 




LDA 


LARAC 


200 






(PACE) , ¥ 


7KQ 


Rpr. 




W8 




CMP 




2U1 






mi i lu 


2 70 






339 








707 








271 




iS9B 


340 




LDY 


H2 


203 






t 7 

T -J 


272 




FINriCH 


341 


S3CQ1 


jsn 


GET DAT A 


7f)d 


uct 7 


_ i ' ,i 




273 


CMP 


i$SA 


342 




BCS 


CG2 


Z05 




LDA 


TABLE, X 


274 


BZ£ 


HOIK'S 


3 43 




DEY 




70 £ 








2/5 


CUP 


f S z-z 


344 




djVc 


msCtti 










77f 


RPQ 


MAT 


141 








j - 




JSR 


ENVOI 


277 


CM* 


t$33 


346 




LDA 


CAHA'C 


70Q 




/If V 




278 


BEO 


PC 


347 




CMP 


H3 


21 






BCL2 


270 


CMP 


t$0B 


348 




D?JE 


SCC 02 


71 7 


• . t * 1 1 






280 


-T-,- 


PC 


349 




DEC 


DRAP1 


9 1 ? 
£. X IL 




JMP 


DCL 


291 Ml 




BEEP 


350 


SSCCJ 






71 1 


r IN 






2 5 2 


JMP 


TOUCH 






L'JA 


CAM AC 


22 i 




jeii 


EIFSOI 


283 MOItiS 










rwp 


i? 1 


71 5 

£ 1 -J 




JMP 


BCL 


284 


i£L 




353 




BEQ 


55C 012 


7 7 iff 








285 




PAGE 


354 




CMP 


t$20 


21 7 








206 


SBC 


it 


355 




DCC 


col 


218 


* Mode 


lect ur-fi 


287 


3EQ 


PRPAGE 


35 € SSCG22 


LDY 


90 


21 3 










233 


EEC 




38? 




STA 


tSTCCK) , Y 


77Q 








235 


SBC 


$M 


358 




ORA 


ttl uouuvuu 


221 








290 


STA 


PAGE 


3S9 




STA 




2/2 




JSR 


VTAB 


231 


JSR 


CLS 


360 




INC 


5 TOOK 


723 




mv 


i w 


797 


.IMP 


PC 


361 




BME 


SSC2 


221 




LDA 










362 




INC 


3TQCK+ 1 


275 




IK? 


STROUT 


2$\ 


JSR 


BEEP 


363 




LDA 


STOCK* 1 


226 


LECTURE 






22S 


jsn 


VTAD 


364 




CMP 


f£9S 


771 




JSR 


MESLEC 




LDY 


&>MP 


355 




BNE 


SSC2 






jsn 


CLS 




LDA 


ft MP 




£SCQ3 


DEC 


STOCK 


77*} 




LDY 


iO 




\JSK 




3b 1 




UE,L 




230 




STY 


PACE 


7QQ 


,7MP 


m 


'ifS A 




JSR 




£J± 




SIX 




300 


RT£ 




363 




DDT 


i#Mfit 


717 






iS7^ 


301 DERPAGE 






370 




LDA 


i<MM 


233 




STA 




302 


JSR 


DEEP 


3 71 




JCR 


STPCUT 


234 




STA 


STGCK+1 




JSR 


VTAB 


3/2 




JSR 


KEY IN 


235 




INC 


STCCXi I 


504 


LDY 


*±MD 


373 




JMP 


EltlCOPIE 


236 




BNE 


LEC 




LUA 


f<MU 


JM 


S5L2 






237 


PC 






in f 


.7$ J? 


GTPnfiT 


IIS 




PTT 




73d 




LDY 


fl 


30 7 01 


J5R 


KEITJV 


J 70 




BFL 


SSC3 


23$ 




LDA 


(PACE} , Y 


308 


JSR 


MESLEC 


J 77 




INC 


DRAP1 


210 






tfKF 




JHT 


TOUCH 


378 




INC 


DRAP 


741 




BEO 


DERPAGE 


310 FINFICH 






379 




LDA 


DRAP 






STA 


STOCK t l 


311 


JSR 


VTAB 


390 




CMP 


i24 


741 




DEY 




312 


LDY 


#>Mr' 


301 








244 




LDA 


(PACE} r y 


313 


LDA 


i-c'ME 


287 


«n 






74 5 




STA 


STOCK 


31 1 


JSK 


STHUUL" 


J3J 






COI 


24£ 


LEC 


IUC 


PACE 


37 5 


JSR 


KRY TM 


384 


PAUSE 






f 




iJVL 




52 6 


AND 


4*11011111 


303 




LDA 


STOCK* 1 


?4fl 








3i y 


CMP 


fO" 


386 




JSR 


CONTF 


213 




LDY 


§0 


310 


DEQ 


r 


337 




LDY 


f*Q 


750 




LDA 


(STOCK! , Y 


319 


SR 


MESLEC 


388 




LDA 


fSFE 


251 




BMI 


DERFAGH 


320 


JMP 


TOUCH 


38S 




STA 


(STOCKS m Y 


9S7 




STA 


CARAC 


321 t' 


JMP 


VTA& 


3W 




INtr 


i : 0C3X 


253 




ORA 


§%1000Q0OO 


$23 






337 






USF.7 


9S4 

£ -r>^ 




STA 


$7F7 


323 " 






332 




INC 


STOCK* 1 


255 




JSP 


ENVOI 


174 * Mnrlf? 




i<n 




rm 


STOCKi 1 


25 & 




INC 


STUCK 


325 J lit! topltfi tj "fcjcj: dJi 


334 




CMP 




7*7 




RWF 


r,p.cn 


326 * 






395 




BNE 


PAUSE2 


25 a 




LNC 


STOCK* 1 


327 






396 




d::c 


SEC 03 


259 




LDY 




328 COPIECR 






397 


PAUSE2 


JSR 


VTAB 


260 




LDA 


STOCK 






INI TAD 


393 




LDY 


t>m 


767 




CMP 


(PAGE) , Y 


33V 


JMP 


PAUSE 


399 




LDA 


#<MA 


•-.,<■-■ 




OMB 


LECl 


331 COl 


JSR 


GETDATA 


400 




JSR 


STROUT 


263 




MY 






BLL 


2&LV 


101 




JMt 


KLIlft 


2€4 




LDA 


CTjTrjf-i-7 


333 C02 


CMP 


#S1B 


402 




CMP 


#$33 


2b0 






{pase} , r 


33 4 


BNE 


col 


403 




Bs3Q 


nucopic 








tMCX 


335 


JMP 


PAUSE 


404 




JSR 


INI DRAP 
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405 




JSP 


HESECP 


474 




JSR 


INITCO 


543 


SUGAR 






40b 




JMF 


CU1 


4/5 




RTS 




514 




LDA 


CARAC 


&m 


CFTDATA 


BIT 


KBD 


476 








545 




CPA 


tt-10000000 


400 




EMI 


GETl 


477 




LUA 


4Q 


346 




STA 


QARAC 


409 




LDX 


#fj 


4 7* 




STA 




54? 




r.nx 


40 


410 




LDA 


(STATUS, Xi 


473 




STA 




340 


ENHAR1 


LDA 


TABLE, X 


411 




AND 


§3 


480 




RTS 




543 




BEQ 


FIN CAR 


422 




BEQ 


GET DAT A 


481 








SSO 




CMP 


CAPAC 


411 




IDA 


{DATA, X) 


482 


* 






5ol 




BEQ 


OKCAR 


42 4 




STA 


CA&AC 


483 




552 




lux 




415 




LLC 




4Q4 








333 




im 




47(5 




RTS 




485 








554 




TtfX 




41? 


sera 


BIT 


strcbe 


466 


CONTF 






555 




ItfX 




418 




LDA 


KBD 


431 




CM? 


i$90 


556 




BNE 


ENCAR1 


419 




SEC 




400 




DCC 


Cl 


55? 


riNCAP 


JMT 


ENVOI 


420 




RTS 




489 




JSR 


BEEP 


558 


OKCAR 


LDY 




421 








4 SO 


CI 


PTE 




559 


CXCAP1 






422 




JSR 


VTAB 


431 








36>V 




LUA 


TABLE, X 


423 




LDY 




£$2 








SGI 




RFQ 


rTNCAZM 






LUA 


*<ml 


433 


* alp firer 




562 




STA 


CAUAC 


475 




,JMP 


S TROUT 


994 









563 




JSR 


ENVOI 


42$ 


rimoriE 






435 








504 




DEI' 




427 




LDY 


to 


496 


BEEP 






555 




BNE 


CKCAR1 


42Q 




LDA 


4$rr 


42? 




T¥A 




see 


FItfCAPO 


PT£ 




429 




STA 


(STOCK) , Y 


498 




PHA 




56/ 








430 




JMP 


VTAB 


499 




TXA 




5 £8 










2NIDHAF 






5V0 




FHA 




563 


■ Messages 




437 








$01 




WY 


iS4f} 


570 








433 




sm 


DRAF 


30 Z 


c 


TTA 




571 








434 




STA 


tiRAPl 


503 




ROR 




572 


ML 


ABC 


"MODE 


435 




RTS 




504 




TAX 










LECTURE" 


436 








505 


D 


DEX 




573 




BRK 




43? 








506 




EM 


D 


5~?1 


HE 


ASC 


"HODS stmncis 


438 


* Caractere - 


-> ssc 


501 




BIT 


HP 








TRkiHENT" 


43$ 








508 




DEY 




5 75 




BRX 




44\1 








5V2 




WE 


L 


376 


HL 


A5C 


"MODE COP IE D 


441 








5J0 




PLA 










'ECRAN** 


M4£ 




txa 




511 




LAX 




577 




B&tC 




443 




PHA 




512 




PLA 




578 


MP 


ASC 


"PREMIERE PAG 


444 


ENVOI 1 


LDX 


* c 


513 




TA1' 










£ <nETURN>" 


445 




LDA 


(STATUS, Jf/ 


514 




RTS 




579 




BRK 




446 




AMD 




SI 5 








5SU 


HD 


ASC 


PAC 


44 f 




beq 


ENVOI 1 


516 


t ■ 












E <KETUKN>" 


448 




LDA 


CAP AC 


52 7 








!S#J 




pa at 




443 




STA 


fDATA, X) 


516 








582 


MM 


ASC 


"NEMQIRE SATO 


4H0 




PT.A 




1 T <5 














REE. FN REG IS 


451 




FAX 




520 


CLS 












TREZ < RETURN 


452 




RTS 




521 




tm 


HP 








>" 


45 J 








522 




3TA 


CARAC 


503 




DRM 




454 


r 






523 




JSR 


ENVOI 


584 


MO 


ASC 


"PAUSE. <ESC> 


4SS 


* Irtii las compLcuzu 


524 




PTS 










POOP FINIP." 


45G 


* . 






525 








585 




BRK 




457 
















S8€ 


He 


ASC 


"OK POUR FIN 


456 


INLIAU 






52 t 


* Eriace 


les 


messages 








UE LUNSULTA 


45 9 




l.DA 


#0 
















TTON ?" 


4€0 




STA 


S TQCK 


523 








387 




BRie 




461 




STA 


DEAF 


530 


VTAB 






588 


MA 


ASC 


"RETURN » COP 


462 




STA 


DPAF1 


531 




LDA 


to 








IE, ESC - PI 


463 




STA 


PAGE 


532 




STA 










H " 


4 £4 




LDA 


iS2S 


B33 




LDA 


§23 


589 




BPK 




4b5 




STA 


STOCK + J 


534 




STA 


CV 










446 




STA 


PAGE* 2 


535 




JSP 


BASCALC 


ssi 


* 






4bf 




DEL 


FAtiti+l 


5 J 6 








531 


' uor respona a nee codes 


468 




LDY 


to 


53 7 




JMP 


CZMEOl 


S$3 




M - 


Mi nit*l 


469 




LDA 


fa 


538 








534 








470 




STA 


fPAGFJ , Y 










595 








471 




LDA 




540 




53C 


TABLE 






412 




INY 




541 






597 


* RC - Envoi 




4 73 




STA 


(PAGE) , Y 


542 








59$ 




DF9 


$8D, S13,$41 f 



60 
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555 * CtKl-M - CvUUOaIwi "7 DTD $32, $13 f $43, £32 * 1 

600 DFB $8B,$1R M $39,$ €18 * Ctrl-E = Fin de page 633 DFB $DD, f 1 3, $2 7, 

601 * Ctrl-ff = /teco/wie*j on 9 * ^5 UFJt C, HI X, fr-fi , * 
£0.2 £FH $97, $1 3 f S49 t o n™ 5rn, S^7,5 75 

&iu 1 Ltri-i * raa = suite « wff £>re (3 

tffl4 nra 5: 3, £4*, 622 ' c 63? * 

603 * Dei = CviLvuLlva CZ3 DFB $DC, Cl 9 f $411, $ 638 * Buy tfe 1'ONRRR GOTO 

606 DFB $FF.$13+S47.G S3 * 

* CLzl-B m Somnaire k25 W^B $£$,02* # Mi 

o £5 £42 ray 

61V * Ctn-£ * tjulcfe * 6 <H3 j^ea 

tii DFR 627 DFB $FD* $19. $41 * $ 644 LDX SDF 

SI 2 * CLlI-X = AimuitiLluii $5 6*5 TX3 

613 DFB $98, $13, $45, €28 * " 646 PHA 

€14 * Ctrl R - detour €29 DFB $DB, $1$, $30, G47 TYA 

615 DFB $92, $13, $42,0 €30 * L ou § 648 PHA 

61 € * Ctrl-B = Repetition 631 DF& $A? r $1 fl, $71 r £48 JtTS 



Programme MNBAS' 

I PRINT (JHRS [ZL] 

9 ONERR GOTO 5000 

5 FRINT CHR$ \4) " tfLVADMI NITEL 
m HIMEMr 82 €5: TEXT : HDhi£ r COSUB 2000 s 
FRINT "tQM'Z>" 2) "mNITEL/APPLE** SB 

r{ R) "PriM'S",* ? casus 2000t vtab 221 cos 

V3 2000; VTAB 10: fflm 1U: FVKE 34 f 4: F 

OKK 35+ 91 

10 CX - 5; DIM A*(S) ;NF$ - "JftfW UU t'lCHltiR 

ti 

20 DIM m$m f W > M3f {Z) , K4$ ffl , M5$ [4} , 
M${€); GOSUB 1000:AD = 826fi:$L = ??EN = 
1;LE - 2:CE - 3. BE - 4;$T « It FCKE 57 
28.255:D$ = CHRS ill) + CRRS (4) -DR = 
0rDl$ - CRR$ (4} ;CV = 1 

Si Ihy paramhtrcs de Fittterfacc modem 
30 IF PEEK ($4435) « 6 AND PEEK 164448) 
- THEN FRINT D$ "DRWIFARMi 

Menu principal 
1VU FOR I = TO 6:M$ (I) - Ml$fl) : NEXT :C 
R - A0tTT$ - "MENU GENERAL". GQ3UB 1100 

:A0 = CH:A2 » 0:CT - 

ICS OW (CX — OR CH — S) AND Oh - C GOTO 
4JVU 

110 ON CM + 2 GOTO 1 50 r 1 €0, 2SQ f 350, 200 f 440 
0, 30VU 

ISO FOR I - TO 2:H$ (I) - M2$(I) : NEXT ;C 
M = AiriTf m m§(AQ): GOSUB 110Q:A1 - C 
m OtJ CM + 1 GOTO 400,500,100 

160 HOME : FK1NT I IF PEEK (9728) - 255 
R PEEK (9739) - 2SS THEN FRINT " RIEN 
A WNSULTER, FAITES RETURN, , . ": CALL A 
® f Si:*JBE& COSUB 60Q0 1 AO - 2: GOTO 100 

170 GOTO 150 

Oiargcr uii Jk/tier 

200 FOR T m TO 2tM$L(I) = M3$fl)i NEXT 
H = A2:TT$ - Mi$[4): GUSUB 1100:A2 - 
= ft- ON CR 4- 1 GOTO $00, 700,100 
250 FOR I * TO 2;tt$[i) - MZ5{I): NEXT 



:C 
CH 



255 



H - AliTTS - M1$(0)' GOSUB 11QQ?A1 - OR 
ON Al - Z GOTO 100 

HOME : VTAR fi.' Pff7"WT }IF5 H A CHARGER OU 



" CHK$ [34}"?" GHR§ (34): GOSUB 4UG0: 1 
F NM$ - TflEJW 250 
260 IF GT THEN GT = 0: GOTO 255 

910 aaxjiR m no 

280 FRINT D$"BLGAD"NM$",A$2500"zA0 = 1 : LF 
= PFF.K (41A17) * 9F>G 4- PF.F.K (4161 + 
94 71 : POKE 8, INT (LF / 256} 7 POKE 7,L 
F - PF.RK (8} * OQSXM 4100:BK - Al 

:FS = 0: GOTO 100 

Sauvcgcuxfcr unfichicr 
.150 TV PEEK {9728} - 255 OR PEEK (9729) 

- £55 THEN CALL AD, 3L F BEi HO^IE - PRINT 
"RIEN A SAUVEGARDER <RETURN>" : WAIT 49 



-Am 



Cirl# SSC 



MlnM 




9 



1 . ^5 



bti 1 SO 

if \h utltc> 
Mil* 








^ — 


3 










ZH22Z2 



; O' 
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152,123? tU&E 491 tjQ, 0:UGTO 100 

351 FOR 1 = TO 2:M$(I) = M2$(I)? NEXT rC 

h - Ai*rr4 = m$(S)s gosub iiqo:ai - ch 

352 ON Al =2 GOTO 100 

353 IF Al < > DK THEN 4200 

355 ROME * VTAS 9 ; PRINT NF$ n A SAUVEGARDER 
00 " CHH$ 04) "f 4 CER$ (34} ;GGSUB 4000 
- TF M$ « THEN 550 
360 IF CT THEN CT = 0: GOTO 355 

tin GOStm &mn 

376 IF DR THEN 380 

?ir nnnm 4mn 

380 PRINT Df "3 SAVE ' f NM-$ '\A$Z500,L "LF :A - 1 

?*!39 = rti /^nrn inn 

400 HOME : ON AO * 1 GOTO 4Q5 r 450 

Rcccvoir trnc sequence 
405 PRINT ! PRINT " ENVOT : RETWEW".- 

PRINT -- PRINT " CORRECTION r ClM-C/DEL 
*j PRINT H ANNVLATTQN : CTRL-X": PRINT 

SUITE . CTRL— I /TAB " »- PRINT " REP 
ETITION i CTRL-3 
410 PRINT " SOt-SMAIRE t GTRLS"; PRINT " 
GUIDE : CTRL-G": PRINT " RETOOK - 
" . PRINT ■ CONNEXION i CTRL-K"; 
PRINT "FIN DE PACE f CTRL-E " 

42£ "DBCQNNEXION ; CTRL N" i PRINT " 

FIN : ESC 

415 GOSUD 7000 

420 CALL AD.SL.EN: PRINT DS"PRiO": IF FEE 

I( (9 720} < > 255 THEN Al - ; G03UB 41 

00;DR « 1:DK - 0:FS - It GOTO 355 
425 DR - 
430 GOTO 100 

Comaker tint s e que n c e 

450 ON £Ii — € COTO 4300 i IF Al < > DK TUB 

N 4200 
452 GO CUD 7000 

455 mW " "1200 BAUDS" :M$(1) - "4800 BAUD 
S":M${2) - H3$(2):I - 3:CH - BDt GQSUB 
1100: ON CH m 2 GOTO 150:BD - CH: ON BD 
COEVB 4600 

460 ROME : PRINT : PRINT "F LECHES ; PASSER 
DE PACE EN PACE": PRINT " ESC 

; ABANDONNER LA CONSULTATION 
470 CALL AD,CL,LE: PRINT D$"PRiO".- ON BD C 

OSUB 4610 
430 GOTO 100 

500 HOME j ON AO + I GOTO 505, 550 

Recevoir line cop'w d'wrun 

505 PRINT : PRINT "MODE COPIE D'ECRAN": PR 
INT : PRINT : PRINT "FA IRE <RETURN> AVA 
NT CJ1AQUE COPIE" : PRINT »<££7C> POUR FIN 
IR 

515 GQSUB 7000 

520 CALL AD,$L,CE: PRINT D$"PR*Q": IF PEE 
K (9720) < > 255 THEN Al - 1: GQSUB 41 
QOiDR - IiDK - 1:FS - J: GOTO 355 

530 DR - 0; GOTO 100 

Consulier une copis d'ecran 
550 ON Al < > DK GOTO 4200: FOR I = TO 
3:M$(I} - M5$(I): NEXT iCH - A3tTT$ - M 
* * - • "4 M2$(l): GOSUB 1100:A3 - 

555 ON CH < 2 AND SI - 6 GOTO 4300 
S€0 ON A3 + 1 CCTO 7$Q f 75Q f 75Q f ISO 



POKE 4316 



AC + 1 : GOTO 81 



THEN PRINT 



bUV FUR 1*0 TO b:M$(l) = M4$(I}: NEXT :C 
E = SL - 1:TT$ - HIS W 4 " - " + M3$ (A 
2) : UUSUti IlOU: Itf CM < b THEN SL * CH 
+ 2 

bit? h2 =2: bOTO 200 

700 FOR 1 ~ TO (T) = Md$ /I) NEXT :C 

h - si - i:ti:$ - * * - w + wj^f^ 

2; ? GOSUB 1100: IF CM * € THEN SI * CW 
+ 1 

710 ^2 - 2? COTO 500 

/SU CW A3 + 1 GOTO //5, //J>, fbU 

7 GQ HOME i VTAS fi: PRINT NFS "'TEXT* RE CEP T 

EUR GU " CHRS {34}"?" CHR$ (34): GVSUB 

4000: IF NM$ - THEN 550 
//U IF CT THEN CT - Ot GOTO /bO 
775 HOME : PRINT : PRINT " TRANSFER T EN COU 
PRINT : PRINT f, <&iC> FUOH L'INI 

ERROMRRE " f IF A3 <r > 2 THEN 7P5 
750 PRINT D$ "OPEN "NM$ i PRINT Dl$ i 'WRlTE' r m$ 

; GOTO BOO 

795 PRINT D$ "PR* "SI: IF A3 ^ THEN PRINT 

CHR$ (27) CHk$ (€9} CHR$ (14) 
800 At; - 3729 

910 OC = PFFK (AC) ? IF OC = 25 5 THEN &Q0 
820 IF OC - 254 THEN PRINT ! PRINT Z FOR 

T - TO PRINT WFYT ! PRINT - 

PRINT :AG *= AC + 1 : GOTO 810 
922 POKE lOW^nc + 17k 
825 IF PEEK (49152) * 155 THEN 

8, 0: GOTO 900 
830 PRINT CHR$ (OC) ; :AG =■ 

n 

300 PRINT DS^CLOSE": IF A3 
CRRS (15) 

910 PRINT CHR3 (12): PRINT D$"PR0O*' ; POKE 
2Q3Q* 1£0: GOTO 100 

Initialise ks tableaux pour ks menus 

1000 DATA MINI TEL VERS APPLE, CONSULTATION, 
CHARGER* SAUVEGARDERr OPTIONS, ENVOI D'UN 
FICHIERf FIN 

1010 FOR I = TO G; READ Ml$tl): NEXT 

1020 DATA SEQUENCES, PORT MINITEL, COPIES D ' 
ECRAN.PCRT IMPRIMANTE. RET0UR r RETOUR 

1030 FOR I - TO 2; READ ffi$ (I ) , M3Q (I) ; N 
EXT 

1040 FOR I - TO 4;M4$(T) - "PORT " + 3T 
RS (I f J): NEXT :M4S(6l m "RETOUR" :M4 
$(0) - "NEANT 

1050 DATA VERS IMAGEmiTER/DMP. VERS AUTRE 
IMPRIMANTE, VERS UN FIGHTER 1 TEXT ' , RETO 

m 

10GO FOR I - TO 3. READ M5$(I); NEXT 

1 070 DATA 27 r 5d, 107*11 8 r 32 r 27* 58* 1 07, 1 00 

1080 FOR T - TO g- READ A% (T) NEXT 
1030 RETURN 

SPAJficliage des menus 

1100 HOME ;TT$ ~ " " t TTf + " PRINT 5 
PC( (40 - T.RN (TT$) ) / 9) ; INVERSE * 
PRINT TIf; NORMAL :MA = I - 1 : FOR I - 

TO MA: VTAR I * ? + fl ? PRINT SPr.( 
12)tt$\If: NEXT ;E$G - 
Mfl.S TF LEFTS (M$ (0) ^ 1) » "M" AND ES THEN 
VTAB 14; HTAB 12; INVERSE . PRINT " 
»M${1) n NORMAL 



62 
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ma GQSUB 1300 

1120 G03UB 6000. CA - PEEK (49152} 
1130 IF CA ■ 13 THEN RETURN 

1140 IF CA - 3 OR CA - 11 THEN CB - CB - 1 
: IF CH < THEN CB m MA: GOTO 1110 

1150 IF CA - 21 OR CA - 10 THEN CH - Cll * 
1: IF MA < CB THEN CH » 0: GOTO 1110 

llHO IF CA - 2? THEN CI1 - MA; RETURtf 

1170 GOTO 1110 

1200 RETURN 

Affichf- In jlfifihp. dp*: m&tus 

1300 FOR 1 - u IV MAI VTAB 1 * 2 t tf; h>UKE 
3$,?: IF CB = I THEN PRINT n * — >■'/■- 

euro ljju 

1330 PRINT £PC( 6) 
13 JU NEXT : RETURN 

200n FOP T - J TO 5: PRINT " 'V ? NE 

JO" r RETURN 

Fin. ESC ne permetpas de sortir 

3000 ON CA = 27 GOTO 100; END 

Sakie tennmdu fidiizr 

4000 IF UK - I THEN CT =■ 1:UN = 0; RETURN 
4002 VTAP IQ* POKE 16,70- CALL - <35#? PUT 

NT " "i7 POKE 3G,1Q 

? INPTJT ""/NMS? TP* NM$ m *'* THEN 
RN 

4nm TF LF.N (NM$) > PD THEN : CALL AD, KL, 

BEr GQTQ 4000 
Jfn/1 TF TEN (NM$) < 3 THEN 4050 
4040 IE f LEFTf (NMf, 2) - "C. " OR LEFT? ( 

NM$,2) = "E.") AND CU THEN NMS = RIGB 

Tf (NM$ t LEN (NM$) - 2) 

4050 IF i ASC ( LEFTS (NMS. 1 } ) < 65 OR AS 

C ( LEFTf (NM$ f l)) > 90} AND NM$ < > 

THEN CALL AD.SL.BE: GOTO 4000 

4055 FOR I - TO liMffl) - "LECTEUR " f 
STR$ (I f li: NEXT :MS(2) ~ M2S(2):I = 

3iCU - PEEK {43C24} li GQSUD 1200: 
IF CH = 2 THEN CT = I : RETURN 

4056 POKE 43G24,CB + It HOME 

4057 IF NM$ = "? n TBEN VTAB 20: PRINT D$" 
CATALOG".' PRINT r PRINT "<RETURN>" ; CO 
SUB 6000: HOME :CT = 1 

40 GO RETURN 

UUU LF - PEEK {8} * 2bb f PEEK f// -341 
It RETURN 

Errcar de type <k Jkhkr 

49nn HOME : PRINT : PRINT "IL JJ'y A PAS DE 
"M2$ (1 - DK? T PRINT "EN MEMO I RE. , . <.R 

4210 G05UB 6000: Al = DK: GOTO 100 

Vune des interfaces manque 

4300 HONE PRINT , PRINT "UTILISES LE MEN 
U ' OPTIONS* POUR": PRINT "TNDTQITEfi TA 
CONFIGURATION <RETURN> " . CAUL AB f SL, BE 
: AO - 4; GOSUB 6000: GOTO 100 

Envoi d f uti jichier au Minitel 

44VO HQM£ l VTAB 8: PRINT NF$ " ' TEXT ' A ENV 
OYER » ! CU - Of COCUB 4000.-CU - 1; IF MM 
^ = ""■ THEN 1UV 
4410 IF CT THEN CT - Oi GOTO 4400 
4410 HOME : PRINT : PRINT "TRANSFER 1 ! 1 EN GO 



URS...*': PRINT : PRINT n <ESC> Pfiim T.*T 
NTERROI4PRE 

4430 PRINT D$ tr PRt"SL: PRINT D£ ,i CPF.N«NM$ s P 

RINT Dl $ "READ "Nll$ 
4440 GET RS: IF RS * CHR$ (13) THEN POKE 
€,19: CALL AD,3L,CX; PORE G, 72 . CALL 

ADsSl.CX: FOR I - 1 TO 2400: NEXT t GO 

TO 4440 

4445 FOR I - 1 TO 35: NEXT 

4450 POKE 6, ASC (R$) i CALL AD f 3L f CX* f IF 

PEEK (49152) - 155 TBEN POKE 49168.0 

t GOTO 4500 

4460 GOTO 4440 

PRINT nS"CLQSE Tt : PRINT D1$"PR§0": GOT 
ICQ 

Minitel et interface en 4800 bauds 

4600 VTAB 17: FOR J = TO 4: POKE $.M(Jl 
.- CALL AD, SL, CXi NEXT i PRINT ; PRINT 
D$"PRi"SL: PRINT " " CHR$ (1}"128": PR 
INT D$ "PRi " i VTAB 17; PRINT 3PC( 4) . 
PRINT 

4 COS RETURN 

Minitel et interface en 1200 bauds 

4610 VTAB 17: FOR J = 5 TO 3: POKE G f A%(i7} 
; CALL AD r CX: NEXT : PRINT : PRINT 
D$"FRf ' T SL: PRINT " " CHR$ (l) ir 8B ,r : PRI 
NT DS"PRiO": VTAB 17: PRINT SPCf 4): P 
RINT 

4615 RETURN 

Tratieftwnt des eircurs 
Snnn CALL Qd6T_*rr m PFEK (79?): TF 11 = S T 
HEN 4500 

5005 CALL AD,SL,BE:U - PEEK (222) : IF U - 

255 THEN RESUME 
5010 LI = PEEK (219) * 256 f PEEK (218): 

PRINT D$"PR{0 
5020 VTAB 18: PRINT : IF U = 8 THEN PRINT 

"ERRBUR D ' ENTREE/SORTIE 
5030 IF U = 6 THEN PRINT "FICHIER INTROUV 
ABLE 

5035 IF U - 13 THEN PRINT "ERREUR DE TYPE 
DE FICIUER 

5040 IF U = 9 THEN PRINT "PAS DE PLACE SV 

R LE DIOQUE 
5045 PRINT tr <RETURN>": WAIT 49152,128: PO 

KE 401 £& f 



5050 


IF LI 


~ 280 TEEN 255 


50€0 


IF LI 


-339 THEN 355 


5070 


IF LI 


= 780 THEN 760 


5090 


IF LI 


- 4057 THEN UK - li GOTO 4000 


5U9U 


IF LI 


- THEN 44U0 


5091 


EttD 





SP uttt'ttd une iuttche 

€000 WAIT Q9lS2 f 12S: POKE 42168,0; RETURN 

Prefixes pour Jichkrs binaims 

6100 IF Al - Q THEN NM$ - "S. " t 
6110 IF Al * J THEN NMS - "C t " + NM$ 
6120 RETURN 

Initialize SSC M'vikd 

7000 PRINT DftPRf'SLt PRINT D$"PR§0"t RETU 
RN 
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Recapitulation 
'MINITEL' 

Apres avoir saisi ce code sous 
tnomtcttr, vouj Ic sctuvcgarJenr par 
BSAVK MINHEL A $2 04 A M$4B5 



20AA:20 


F5 


E6 


8A 


48 


28 






2050: €9 


c6 


BS 


FD 




OA 


OA 


OA 


2050 : OA 


S3 


93 


SO 




85 


tu 


10" 




A<J 


CO 


fl5 


Fir 


AT 


FF 


A 1 


2063: 00 


S3 


FC 


20 


f-5 


E€ 


BA 




2070:01 


F0 


28 


C9 


02 


DO 


03 


AC 


2970: 97 


22 


C9 


03 


DO 


03 


4C 


5C 


2080:22 


C9 


04 


DO 


03 


4C 


73 


23 


20S8 i C9 


05 


O0 


03 


AC 


AO 


23 


GO 


2090:20 


3)2 


2d 


AU 


23 


A3 


D8 


20 


2098! 3J5 


DB 


SO 


20 


SG 


20 


20 


43 


2QAQ:23 


ZL 


00 


CO 


30 




AZ 


00 


70AA;AJ 


FR 


?q 


OP 


FO 


p% 


A T 


FH 


£030; AQ 


00 


31 


07 


03 


60 


GO 


r7 


2QB8;01 


E€ 


07 


DO 


IC 


E6 


08 


A5 


20C0t08 


eg 


OS 


DO 


1 4 


CS 


07 


C€ 


20C8: 08 


20 


92 


23 


AO 


24 


A3 


2D 




3A 


hp 


70 


Of* 


~r. 


Af* 


07 


2ooe : zi 


EG 


ic 


DO 






ID 


*C 


2QE0:Al 


20 


2C 


10 


CO 


AD 


00 


CO 


20E8* 03 


80 


35 


06 


C3 


3B 


DO 


25 


20F0:20 


92 


23 


AO 


24 


A9 


53 


20 


20V0 i JA 


DD 


20 


OC 


ro 


C9 


9D 


ro 


21 00 : 06 


20 


90 


20 


AC 


Al 


20 


AO 


21 08 -- 00 


A9 


FT 


91 


q y 




cs 


cs 


2110: 91 


1 H 


ajc 


22 


23 


A 2 


uu 


&u 


21 1 8-A4 


74 


Ffi 


SR 


C*i 




FO 


fi 


2I2Q:EB 


EB 


KB 


E8 


DO 




3A 


C3 


21 28 i 2D 


RO 


49 


AO 


C3 


AS 


ID 


DO 


21 30 -- 20 


A3 


lc 


C3 


64 


SO 


1A 


71 


2138: 18 


91 


18 


90 


04 


C8 


38 


BO 


21 40 ; 01 


CO 


A5 


ID 


72 


1 


91 


10 


2148:20 


6B 


23 


20 


64 


23 


4C 


74 


2150: 21 


1 8 


AS 


ic 


'■'2 


18 


$3 


90 


21 58 : 04 


C8 


38 


BO 


01 


CB 


A5 


ID 


21 SO ; 71 


J 8 


ES 


18 


y-= 


I S 


AO 


01 


21 &tf ; 91 


m 


20 


blS 


23 


tsa 


t)8 


31 


2170-18 


?f\ 


Atf 


£3 


i "■ 


n i 


F.R 


fln 


£1 78:A4 


24 


FO 


08 


83 


PS 


20 


32 


2JR0: 73 


88 


DO 


F2 


AC 


Al 


?Q 


20 


21 88; 32 


23 


■r? a I 


20 


7- :• 


iJ 


S3 


21 90: AO 


23 


A3 


CB 


AC 


3A 


DB 


20 


21 08 : BD 


2 2 


20 


OA 


23 


AO 


00 


9 ' 


21AQ:1B 


84 


07 A3 


25 


B : 


19 


85 


21A3: 08 


ES 


03 


DO 


OF 


AO 


01 


31 


21BU:18 


C3 


FF 


FO 




83 


08 


88 


2138:81 


IB 


95 


Of 


ES 


18 


EC 


18 


2LCUIA0 


00 


iSl 


Of 


JU 


&4 


tf3 


Ob 


PICR'fiQ 


ro 


fin 


Fl 


7 


pa 




7t 


Zl DO: £0" 


07 


do 


02 


£tf 


00 


AO 


00 


21D8:A5 


01 


Dl 


18 


DO 


E2 


CE 


A5 


21E0l 00 


Dl 


13 


DO 


DB 


AD 


00 


CO 


21E8-A0 


FB 


2C 


10 


CO 


CB 


SB 


FO 


21FQ: 4F 


CD 


8A 


ro 


12 




88 


FO 


21F8:0E 


CS 


9b 


FO 


BO 


C9 


8B 


FU 


220 O.AC 


20 


73 


22 


4C 


£5 


21 


39 




itf 


£9 


02 


tv 


UH 


38 




77\n-07 


S-5 


Jfl 


Pi) 




21 


ir 


An 


2ll a: 21 


20 


73 


23 


20 


92 


23 


AO 


2220:21 


A9 


FF 


20 


3A 


DB 


4C 


37 



22281 22 


60 


20 


73 


23 


20 


92 


23 


2230: AO 


24 


A.9 


IS 


70 


3A 


DB 


3 






J. V 


8U 




fC t'3 


21 


7240:70 


Q7 


71 


AO 


74 


a ; 


ffR 


7(1 


??■ lift' T* 


on 




oc ro 


23 


DT 


CS 


77*kO'CF 

££ JV m \t£ 


yo 

F U 


■J u 


20 


3D 


21 


4C E5 


r .n - ?3 

.£.£. JU * £1 






23 


20 


43 


23 


iC 


2260 :CA 


22 


20 


FD 


22 


SO 


07 C3 


2269i IB 


DO 


F7 


4C 


CA 


22 


AS 


OS 


nto:C3 


13 


UO 


OA 


AO 


OC 


20 




7278*22 


SO 


er 


88 


DO 


F8 


AS 


OS 


12 SO: £3 


CL 


DO 


02 


Cti 


IE R5 


06 



80 colonnes et 
HGR2 

Si voue carte 80 colonnes 
TEXT Apple est active 
(PRO), rordre HC1R2 

necessairement a effacer 

et afficher la page 
graphiquc 2, Lc rcmcde : 
avantdefaireHGR2, 
faites POKE 49164 P et 
POKE 49152,0 ce qui 
disactive la carte et 
commute la memoire 
principals. 



ZZ83.C3 

2290:A0 

2200i 07 

22A0:08 

22 A3 j 03 
22BQ:2Q 
22B3i23 
22CUIIA 
22C8 • S7 
2200: 00 
22D8-.0A 
£2€Q . 0Z 
22ES:A9 
22F0;C3 
22F8:18 
2300)20 
2308:F0 
211 j 2.C 
2318:20 
2320 zlA 
2328, AC 
2330: IE 
2338:23 
2340:68 
2348 :1A 
2J5U: Uti 

2360: 20 

2368:85 



od ro 
00 91 

EC 07 

C9 35 

20 $2 
3A DB 
24 IE 
A5 IA 
77 AS 
AS Jf"£ 
38 

ro 

89 20 
on ro 
23 AC 

0M A2 
F3 Al 
10 CO 
32 23 
DB AO 
32 23 
60 8A 

io ro 
AA tO 
85 IE 
19 
9} 18 
6A 23 
ID 60 



OA C3 20 

0? 09 80 

DO IC EG 
DO I A C6 
23 AO 24 
2Q OC FD 
10 OA EG 

cy 18 t o 

OR 70 f.P 
31 07 £U 

AS OS C9 

20 92 23 

3A DB 20 

2E 20 2D 

62 22 2C 

00 Al £9 
ED 8b 06 
AD 00 CO 
AO 23 A3 
00 A9 FF 
A3 00 63 
48 A2 00 
F8 AS 06 
A9 00 fl5 
85 18 AS 
C6 13 AU 
AQ 7S. r.8 
60 A3 00 
09 90 90 



30 D2 
8D Fl 
OO AS 
07 C6 
A9 3D 
4C 22 
IF EG 
UJ *C 
23 AO 
07 DO 
96 DO 
AO 24 

OC FD 

23 20 
00 CO 
29 08 
18 60 
38 SO 
AL 
91 07 
1A 65 
Al EE 
81 ru 
7 83 
2S 85 
00 A3 

85 IC 

03 20 



23 10 : 73 


2 j 


60 


98 


48 


on 


48 AO 


23 78: 40 


ftB 


SA 


AA 


CA 


DO 




2C 


2380; JU 


W 


08 


DO 


t'4 


frr 


AA 


bd 




fitl 


A$ 


or 


85 


OS 


20 


32 


23 30 : 23 


60 


AS 


00 


95 


24 


A3 


1 7 


2398:85 


25 


20 


CJ 


FR 


AC 


*jr 


FC 


2 3 AO-. A3 


Qt 


03 


60 


85 




A2 


00 


23A8:3D A4 


24 


F0 


OA 




06 


FO 


23B0tOO 


no 


CD 


DO 


no 


DO 


Fl 


AC 


2338:32 


23 


AO 


03 


EE 






24 


23C0:F0 


08 


BS 




20 


32 


23 


88 


2JCS I DO 


F2 


to 


CD 


CF 


CA 


Ch 


AO 




C5 


C3 


D4 


D5 


D2 


CS 


00 


23D8 ' CfJ 


LF 


Lfl 


L'5 


a is 
1 V 








23EQ;CS 


C7 


C 1 ) 




D4 


D7 




rn 


23EB . C3 


•CE 


DA 




CD 


CF 


CA 


C3 


23F0:A0 


C3 


CF 


DO 


CS 


C5 


AO 


CA 


23F8iA7 


CS 


C3 


D2 


Cl 


en 


08 


DO 


2400:D2 


CS 


CD 


CS 


C5 


D2 


C5 


AO 


2403: DO 


Cl 


c? 


CS 


AO 


BC 


D2 


CS 


2 A 10: DA 


Dj 


D2 


CE 


BE 


00 


C4 


C5 


2418 ;D2 




CS 


C5 


D2 


CS 


AO 


DO 


2420: Li 


1,7 


C"5 


AU 


jtJL 


V2 


C3 


DA 


2423 :D5 


D2 


CE 




00 


CD 


CS 


cn 


£430 iCF 


C3 


D2 


C5 


AO 


D3 


Cl 


OA 


2433 :D5 


D2 


C5 


C5 


AC AO 


C5 


CE 


2440 tD2 


CS 


C7 


C9 


D3 


DA 


D2 


cs 


24 48: DA 


AO 


BC 


D2 


C5 


DA 


Dh 


D2 


215Q.CE 


BE 


00 


DO 


Cl 


05 


D3 


C5 


2A58:AE 


AO 


BC 


CS 


D3 


CJ 


BE AO 


24 GO t DO 


cr 


V5 


02 


AO 


CS 


CO 


cn 


2A&B: CM 


D2 


00 


CF CB AO 


DO 


CF 


24 70 ; DS 


D2 


AO 


CS 


C9 


CE 


AO 


C4 


Z4 7B :l5 


AO 


C'J 




KB 


VJ 


U3 


cc 


7480:^4 


^1 


04 


re 


rr 


CP 


AO 


RF 


2480; 00 


Ql 


C5 


DA 


D5 


D2 


AO 


2490:BD 


AO 


C3 


CF 


DO 


€9 


C5 


AC 


242Q;AQ 


C5 


D3 


CJ 


AO 


BD 


AO 


CO 


24A0:C9 


CE 


Ad 


00 


80 


13 


41 


00 


24A3;8B 


IB 


33 


£8 


07 


■13} 


49 


00 


2ABQ:89 


13 


A3 


00 


FF 


13 


47 





24US:83 


13 


47 


00 


93 


13 


46 


00 


24^0:37 


13 


44 


00 


VO 


1 J 


45 


■ju 


24C8? Q7 


1 1 


42 


00 


82 


13 


43 


00 


24D0:65 


■3D 


00 


00 


CO 


13 


41 


€1 


24D8:DC 


19 


4B 


£.1 


FR 


m 


47 


£5 


24E0,rD 


13 


41 


65 


DB 


13 


30 


:: 


24E8:AJ 


19 


23 


00 


DD 


19 


27 


00 


24F0;rc 


13 


42 


75 


00 


CO 


AO 


ce 


24F8:A$ DF 


9A 


48 


98 


48 


€0 





Recapitulation 
'PARAM' 

i Cc ffekier rt'cj/ utile que pour 

utilisation sur un Apple lie. 
Apres avoir saisi ce code sous 

US AVE FARAMM3Q0H27 

0300: AS 38 8D IC 04 A9 6B 8D 

OJOOiVD OA A3 61 GD ?E OA A3 

0310 :7C 85 42 85 3C A9 04 85 
0318 i A3 85 3D A3 7E 65 3E A3 
0320:04 85 3F 38 AC 11 C3 
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Pom's n 27 



1' Apple Egs 



L'objct dc CC3 ligncs dc pi6 sen Lai ion iVcst pas dc fairc unc 
analyse exhaustive du nouveau b£bc fbien beau) ni de cider a la 
facilile qui consistc a reprendrt ligne i lignc lc dossier dc prcssc 
diffuse par 1e conslrucleurv Void ^implement notre premier 
contact ct quelqucs taractci iitiqucs ; gagcous toutcfois que nous 
vous ferons profiler sans tarder de nos premieres lignes de 

programme 16 bits. 



{tonne ceci : 



Le processeur 



Ernpilcr dircctcnicnt un registry compter dc a 1000 (ou 

65535) diimement disposer de branchements relatifs longs* de 

sauts Lndirccts a des sous- programmes, utilizer uq adrcasagc sur 
24 hits. d£placer des blocs de rne'moire (32Ko en 80 ms) sont 
quclquci-uucs tks pja&ibilitcs du 65310* Cc pioccsscur qui rcstc 
dans la ligne dn<: fi1f17 *i ffiCflJ. &£ruiira lenrQ adeptes : la lecture 
dc ses t^uaLlciisliques lie dcpayscia pas lc Ltxtcui dc Pom's 
mmmp il piTf Vfarp. par Yamvfe rin fiSfinfl 1 £ ffifilfi qui est nne 
Evolution, nun une re'volution* met a la UispusiLiuu du 
programmmir ! 

• Amiimulateur A 1 6 hits. 
- Registry X ct Y 10 bits, 

• R^gistre DRR, 3e numfrn de Ja 'page' DATA, e'est a dire les 
3 bits dc puids fun duis les adi cssagca longs, 

• Registre PBR T le num^ra la *p3gp* oV rin«tnir.tirm 
sulvante (Program Bank Register), le PC curnenaiit les 10" 
bits de poidi faible, 

• Registre D pour les adressages dirucL^, 

• Regietre d^tat P, 

• Polnteur de pile 5 sur is bits. 

Un petit tour en mo&iteur par le CALL- 151 (on est en mode 

emulation) nous fait d£couvrir ce noweau Listing ; 

FF/19D8:Q0 00 El E2 30 64 AI €Q-.~abQd!* 
FF/lSE0;3Z D5 DP AO D5 F3 P5 Pi -£U- l/j«ttf 
FF/19E8:A0 EC E9 F3 F4 AO AQ DO- list P 
FF/1QF0 :BD AO DO F5 F2 Fl F5 A0-= Purge* 
FF/19F8:E£ £9 E3 E4 AO AO Cff BD-llsL F- 

FF/lAOOtAO CS F2 E5 E5 AO EC £9- free li 
FF/1AQ8 *F3 Ff AO AO Dl BD AO Dl-st Q- Q 
FF/1A10:F5 E9 F4 3B 8D ED A3 AV-uit;..* 

FFSlAlGtAO AO AC CS El EE E4 EC- ftPftHl 
FF/1A2Q;E5 AO AO Gl EM tV FZ fiQ~V Acltli 

FF/1A28:AQ €1 F4 F4 F2 AO AO C9- Attr I 

fT/2A30;Cf AO AO AO AO &3 E9 FA D Sis 
FF/iAJU ;E5 A 'J AO AV AU DU £2 ESS fxe 
FF/ 1A40'F6 All Aft Afi CF 65 FR F4-v Next 
£T/t&4$iA& AO AO C6 F2 E5 E5 35- fitreJ 
A gauciic f lc numdro dc la 'page' sous la forme 1 'nn/" T on devlne 

rapidement qu'il y a 256 "pages' mais qui nexistent evidemment 

qu'en fonction dc la RAM disponible. A droite un Equivalent en 

ASCII, pratique. Surprise : on est gratiMe du bip mente par 

PDD4G T ct FC5SC cffucc l'ccrtm commc prd^Ti, maia Ic listing 



0Q/FC58; 


w 


00 




CO 


Q0/FGSA; 


:c 


00 




00 




. i- 


vv 




vu 




00 


00 




tic 


00/rcGO: 


00 


00 


ZJjR/f 


00 


Q0/FCG2: 


00 


DO 


BRK 


00 


00 /FC£ 4 • 


00 


00 




00 






00 


BRK 


oo 


00/FC68: 


00 


00 


BRK 


00 


oo/rcOAi 


9? 


00 


BRK 


00 


90/FCSC: 


00 


00 


BRK 


00 




nn 


oc 


BRF 


00 



Ceci parcequ au-dessus de SBFFF. en mode fmnlation. le saut 
sc fait dans la page SIT, la ou. sc trouvc la ROM : 



FF/FCSS / 


AO 


OS 


LDY 






FF/FC5A i 


BV 


CD 


SKA 


FC29 




FF/FC5C: 


PR 




XBA 






rr/rc5o , 


*C 


FC 


JMP 


FCEB 




FF/FCSO: 


00 


00 


BRK 


00 




FF/FC€3i 


Jl& 


00 


LDA 


too 






35 


24 


$TA 


24 




FF/FC€€: 


ES 


25 


INC 


25 




FF/FCSS i 


AS 


25 


U>A 


25 




FF/FC6A: 


C5 


23 


CMP 


23 




FF/FCSd 


90 


mH 


BCC 


Fcm 






G6 




DEC 


23 




FF/FC70: 


AO 


06 


LDY 


i0€ 




FF/FC72 i 


90 


35 


BRA 


FC20 


f 4B} 



L exploration de cenc ROM de 128Ku laissc paialUc un 'tableau 
de bord* qui fait penser ao Macintn^h Tpftp. viiifp. AWH 
L'CR-Juira egaicment a une table de saub dans la page $E1 qui 
rappelle auEEi Le EU£-ciu*. 



Ouvert, ferine 



Le tableau dc bord, en plusieurs menus ct a 1'ergonomie 

agreabie, donne la possibiliie de rcgler Le niveau sonore, |a 
Frequence du Bip, la couleurdu fond, celle des carict^ree, cells de 
la marge de i ccran, la 'nationaiite' des carac teres athches 
(pourquoi les Dnnois pcrdroicnt-ils bur fl ?), cclk du clavier. 
Bien sUr. il donne egalement acces a 1'horloge mais il $6duit 

surtout par La gestion dc 1' affectation des slots. Par dffaut^ nous 
trouvons dans ccux-ci, cormectcs 'soft', les interfaces int^gr£es 

suivaatci ! 

SLOT 1 Imp rim ante 

SLU I 2 Communication 

SLOT 3 SOcolonnca 

SLOT 4 Souris 

£LOT5 'EiMrt alot J 

SLUT 6 Lecteurde disquettes 

SLOT 7 Libre 



J 
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Pom's n 21 



Cull saus eaiic daiis L'auuaicil. NuLujjs t^uc lc slut 7 pcut 6uc 
affpr!^ & Vintprfarp. Applp.TalV inltfgree Oan^ ce rat, I'lnterface 
communication est indisponible, 

Puui uliauuii des yuiLi, il est possible d'iuiposer a la machine 
rurilisfllinn de rinferfare rrmnerfrlta physiqiiemeni Nil] he.snin 
de modem ? Mcluc en pun 2 id carte ZSO, rindit| ucr par 
Inhlpan Hp hnrrt p.! 1p PP^M met arce^cihte l£ TlflS drmne 
CgulcmcrU lc tfiui* dc I'fotcrftttC 411J sciviia au 'buut\ II est 
mnrnp pAwiWp Hp hrvilpr sur Ip Hisqne virniel *i on a pHs soin 
dti rinstallur, d'y copier une dis quelle avaut je CTRL- 3 
RESET.,. VLujseo garjuitie. 

Pour les iniprfarp^ imprimanlp pi mmrnunicalinn, le re^glage des 
paramfcires pcuL^alcmcni sc falre p^i tableau dtLumjiLtttjJ^ 

Debit, pari id , format ot pro loco I c de transmission dc£ donn^es 

sont acce ssible^ sans lever je capot ce qui, vu la conception de 

l'ouverture, ne nous frustara pas... Cot aspect de la machine rend 

plus vivable Je 'systeme OUverT : Pom's sail par experience 

touts la £cuple&£$ tirse d& multiples carte? maie sail e*galament 

toule [a lassitude de retirer le moniieur pour passer du mooc 

imprimonte au mode communication, pour lourner le 'Jumper 

bloc' : partois, uniter les systemes fcrmcs a du bon... 



La compatibility 



Ce tableau de bord offre egalemeni le ctioix de la Vitesse du 

proceBseur : 1 ou 2,5 MHz. Ceils dee Apple // est a choisir si 

I ouverture dc Gumaumc Tell de la disquette Pom s 5 doit rester 

comprehensible, ou si voire ZSO est perdu par la viiesse 
standard du litis. La frequence 2,8 MHz est k cfioisir pour tous 

las programmes ind£ pendants du ■ timing 1 ou ce-ux qui soot 

synchronises sur la video. L utilisation dc tsip Mac par exemple 

devient dtonnonte, Ic gain est rem arguable sur La plupart des 

programmes surtout si Ton considere la eesLion de la cane KU 
colonues, stnsEblcmcnl plus ncrvcusc que ecllc du /'c. 

La comp&libiltte Semblc OSSUree ires Jargement* biert que notre 

AppleWnter UUS i.3 soa tnuuiisabie el que ja version 

Pro DOS soit d 6 pas sec par lcs nouvcllcs interfaces. MSme 

Pascal (dont la portability semble surJaile lonqu on passe du lit 

au //c...} nous a paru s'accornodcr, mats scute i experience en 

dira plus, LoeiquemenL les programmes, qui cherchenl une 

odrcssc porticulicrc dEuis In carte sourjs ou SO colonne^ eourcnt h 

1'dchec mais Tdmulaiion semble lies au poinl les disqueties 

Pom's rtstcront d'octualild pour eclui qui gardcra un kctcur 5,25 
pouces car le JIGS est equips en standard de lecieurs de disquenes 
3,5 pouccs BOOK, ccu& Uu M^cLuo&lt, uu tdmoiii luugc dc 
fnnctirtnnp.mp.nt en prime. 

Quelqucs 

caract^ristiques dir ITgs 

Bjcn des ph&ios dc=a tfcrar^ orto a I'aidc du programme de dessin 

USPaini oni rau Jes couvertures. J I reste que ruuiisation esi 

spccUcuiairc, Louies lcs fcciliLds du Macintosh sont prescn'.cs 

dans ce programme auquel on pardonrie d'etre plus lenL vues les 
couJcurs dispon iblcs* Lc plus dtonnani est ]'<f dition dc ccs 
coulcurs : trols ascenceurs qu potentinrnfeLres pour doser les 
rOUge, veil ct bleu, tut puui idglci k luuiiuuMld cl uu ja'ui Ia 
saturation : les 4096 nuances sont 1i. Ajoutons que les "motifs' 

sont <fdi tables cn coulcurs mais comment obtcmV unc eopic 
papier qui respeclc I ccuvre ? 



En resume", le TIGS, e'est : 

■ Uiic uuiuS cciilfalc 126K dc ROM ct 256 dc RAM extensible 
k A mf*gaoct£ls. 

* Un duviei dduJidblc, ou plut5t d^tatli^ t avee blot 
num^rique <*t ?nim^ 

* MoniteurcouleuT, 

* Li^tpnr Hp. Hi^qtiplle \S pouces, 

* 640 a 200 puiiits k ['fctwi cn 4 cuuleun pajnil 4096 ou 320 
x 500 en Ifi coulwirs, 

* Son 16 voU 

* S connecteurs d>xietiRinn {rinnl iin pmir une extension 
me moire), 

* Deux Interfaces sfrif, imp. ^niiri<;, ime R0 colnnnes, une 
AppleTaLk. 

Les Lecieurs ae Pom's qui se sont penchds sur les sources des 
programmes Macintosh se sont aMnues un a vantage certain pour 
lit piogiaLmiiatiuii dc kuj futui GS. Lc cuuLacL iivcc lcs juutUics 
graphiques des tlRK rie RDM leur sera familvcr : SetnipRgn, 
Obs^ujcCuiMjj, GclPcuStiaic, TcAtFacc ct auUc OctFuutlnTu 
snnT nppan>es rteus le c^hier Mar. depuis bien des nnm^ros. Lee 
pars me ires se passe ni Id aussl par la pile, pile qui attelnt 64K. 

Le graphisme 

Point tort du nouvel arrive le graphisme Super-Haute 

Resolution m^rite quelqucs precisions. 

L'ccran est divisel en 200 lifines de 320 ou 640 points. A chaque 

Ugnc est affteie un octet qui en donne lcs caractcnsti^ucs : 

4 bits pour indiqucr quelle table, parmi lcs 16 tables dc 16 

couleurs. doit fctre utilisce, 
1 bit uidiqucra si la lignc cat cn mode 320 ou 640 points, 
1 pour activer le mode reraplissage. 

1 bit pour lea interruptions. 
ha tabic dc 16 coulcurs... 

...chnisie pour la ligne est composed de Ifi fnis dent ncteLs. 
Dons ccs 2 octets, 4 bits donncnt lc niveau dc bleu, 4 pour lc 
vert et 4 pour le rouge, 4 ne servent pas. 

Mode 320 ou 640 

En mode 320 chaque pixel est d£fini non par 1 bit, mais par 4 

qui donnenl le numero de la cod cur de ce pixel dans la table de 

la lignc. 

En mode 640, chaque pixel est deTini par 2 bits dormant le 
uuiucro dc sa toule ur daus uuc partic dc La table dc la lignc, il y 
a done 4 pixels par octet. l,e premier pixel sera de Tune des 
ujuleuia & 3, le dcuAiciuc daus l r ULic des euulcuis 4 4 7, etL. 2 
pixels arljacenls ne peuvenf rfonc etre rie !a m?me matearqne si 
la tabic est tuiiipusdc dc 4 fuis les iiiemcs ujuIcuis. 
Interruptions 

Le tracd d une ligne peut g^ndrer une interrup^oo : N est done 
possible d'eu piofltci paui changer la palcltc dc uoulcuis avaiit. 
fiymna^tiqne complete qui rend pocsihle. rafRchagp Hp 2^6 
luuIcujs sur lc niCrnc dcrao. 
Rcmplissagc 

Si le bit de rcmplissagc dc l octet de contrdle d f une ligoe est a 1, 

La coulcur de la table de ecu leu r est LsdispombLc : Lcs pixels 
deTmis de la couleur seront en fait de la riemiere couteur 
uillisc'c... 

De tclles pusstblUtCs graprilques dcvraleni dormer l idde 

fi'utitifairpc 
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MENU PRINCIPAL 




INITIALISATION 
CREATION 



mm MODIFICATION 
mm ANGULATION 
mm CONSULTATION 
mm IMPREG010N 

riN DC LA DEMONSTRATION 



Lasse des saisies au clavier ? 
Choisissez une interface direcie et 
conviviale : 1© crayon optique, un 

peu dclaisse depuis l'anrvee des 
Macintosh, Apple //c ct Icur 
cortege de loans. 

Le petit montage propose ici ne 
saurak rivaliser avcc la precision 
des petits rongeurs a roulettes, 
mais pour passer de menus en 

menus, il savers particulierement 
efficace. De plus, le cout de 
ropcration (moins dc 40,00 F) la 
rend attrayante. 

Le principe : 

f h ^ //c 

Les priucipes rerenus pour le 
controle du balayage video etant 
differents sur les lie et lit. la 
routine est composcc dc deux 
parties independantes. 

\& manuel de reference de 
l r Apple //e sign ale un octet qui 
change de valeur au debut et a la 
fin da balayage vide*o : $C019. 

Pour connaitre la position d'un 
crayon optique sur Lecran, il 
convient dc l chronomctrcr' lc 
temps ecoule entre le debut du 
balayage ct la inception dc la 
lumiere par le crayon. Cette 
r&epuon sera comrtlg par un 
photo transistor relie au connec- 
teur des poignees de jeti 



Lc programme cn assembleui 
reepecte les etapes suivantes : 

* attendre que le crayon ne soit 

plus gclairi pour laisser finir 
un eventual balayage cn corns, 
■ attendre le debut dune frame, 

* commciTccr alors lc comptage, 

* artenrire que le phototransistor 
soil cclaiic pour stopper le 
comptage, 

* recomrneiicer le processus si 
on arrive cn fin dc tramc sans 
que le crayon n'ai recu de 
lumicTCj 

* controler que le crayon se 
icliuuvc bien dans I ombre 
apres le passage du spot Si tel 
n'est pas le cas, le crayon etait 
cckirc par la lumiere ambiante, 

* controler simultanement le 
clavier pour que Lutilisateur 
puissc Vutiliscr a son grc. 



Sur lc //c, on cn pcut plus sc 
referer au changement de valeur 
dc 1'ucLcL $C0J9, Un interruption 
peut etre generee a chaque debut 
de trame, mission confine a la 

carte aouris. La routine installc cn 
premier lieu le vecteur 
d'intcrruption puis execute une 
honcle en attendant la premiere 
d'cuLie-ellta (uiic a chaque GOeiue 
de seconde). Le teste du 
traiiement est similaire. 

Un test permet au debut de la 
routine dc savoir si on se trouve 
sur Vun ou 1'autre des 
usdinauams- 

Utilisation du 
programme 

Charger depuis votre programme 
Basic la routine : 

PRINT Cffl$m n BLQAD CRAYQN,A3812 

7* 

A chaque utilisation du crayon, 
falre: 

CALL 38227 

5ur lc //e, la routine 6tauL 
relogeable, il suffit de fairs : 

CALL adrcose oha rgcmoiit 

Sur le lie il faudra reassembler a 
1'adresse choisie ou, sous 
ProDOS, utiliser le relogeur d'A, 
Avrane. 



Apres cet appel, dans l'octet 6, 
vous disposez de la position 
verticale du crayon, cntrc ct 23. 
Si cet octet est a 255, rutilisateur 
s'est servi du clavier et vous 
trouvez le code de la touche dans 

roctet 7. Ceci est iilustre dans le 
programme DEMO, 

Commc dans lc programme dc 
demonstration, reservez une zone 
en vidcu inverse sur chaque 
option pour que le phototransistor 
reagisse efflcacement. 

Ce programme peut fonctionner 
sous ProDOS sur Tun ct Tautrc 
appareiL 

Realisation 
pratique 

Le hardware ( ! !) se resume h : 

* trois resistances qui laisscnt 
I 'entree, fngiqne D (equivalent 3 

la 0) ft 0, 

* un phototransistor qui, en se 
saturant d la lumiere porte cette 
entree a 1 . 

Le phototransistor - dont le type 
n*cst paa critique - sera installe 
dans un tube opaque. Quant aux 
resistances, clles trouvcront leur 
place dans la prise reliee au 
cunncctcui puigucc dejeu. 
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Uincompatibilite se faisant sentir 
k ce niveau lb cKalemeiii, l'unc 
des resistances est ajustable car le 
seuil de declenchement de remr& 

diffcrc scnsiblcmcnt scion les 
apparetls. Hour la regler, executez 
lc programme suivant : 

10 PRINT PEEK {13113} 
20 GOTO 10 

R6glez-la pour obtenir les valeurs 
superieures a 127 (generalement 
on obtient 160) puis revenez en 
arricrc lcgcrcmcnt pour obtenir 
rtes valenrs interieures ou egales 
a 127 (gcncralcmcnt 32), lc tout, 
p^yon h l'nmhre. 

a 



Recapitulation 
'CRAYON' 

Apr&s avoir salsi cs code sous 
monitour f you 3 h a&uveg&rd&rQZ pur 1 
BSA Vt CHA YUN, AJJWf F, L$l 7 1 



94EF- AD 



&4F0- 


CO 


FB 


Fto 


4& 


2C 


rift 


CO 


30 


24E8- 


38 


2C 


trj 


CO 


10 


r& 


A3 


00 






06 


85 


07 2C 


19 


CO 


30 


9306- 


FB 


2C 


10 


CO 


10 


FB 


A2 


IE 


9510- 


2C 


00 


CO 


30 


1C 


2C 


61 


CO 




30 


oc 


CA 


DO 


F3 


EG 


Oe 


3C 


9520- 


19 


CO 


30 EA 


10 


CE 


A2 


s*U 




■CA 


M 


FD 


7C 


*l 


rn 




rtf 


$530- 


SO 


2C 


10 


CO 


AD 


GO 


CO 


65 


9538- 


07 


A3 


FF 


85 


06 


60 


78 


A9 


3540 


ca 


3D 


FB 


83 


A3 


95 


*D 


FF 


9543- 


03 


AO 


19 


20 


DE 


95 


A9 


08 


3550- 


AO 


12 


20 


BE 


_-r 


A3 


DO 


85 



5556- 


06 


50 


24 


00 


10 


PC 


73 


AO 


9560- 


00 


AO 


12 


20 


DE 


95 


58 


60 


osea 


73 


AS 


FE 


35 


1 9 


AS 


FF 


95 


9570- 


1A 


A5 


45 


85 


13 


Bb 


1C 


84 


9576- 


1I> 


A9 


00 


AO 


12 


30 


DE 


95 


238V~ 


AG 


13 


£0 


DE 


33 


30 


06 


20 




Fl 




4C 


Fft 


BP 


A9 


00 


85 


3530- 




65 


07 


60 


06 


AO 


06 


A2 


9598- 




CA 


DO 


FD 


88 


DO 


F8 


A2 


95A0- 


IE 


2C 


00 


CO 


30 


2A 


2C 


€1 


95A8- 


CO 


30 


17 


CA 


DO 


F3 


E6 


Ob 


9SBO- 


AS 




CP 


IS 


90 


EQ 


Act 


03 




AO 


12 


kO 


DE 


93 


20 


El 


35 




i$ 


4f\ 


hV 


7fi 


CA 


nn 


?n 


7f! 


95C8- 


61 


CO 


30 


EA 


C6 


08 


30 


£6 




?C 


I 


CO 


AD 


00 


CO 


85 


07 


35D6- 


A3 


FF 


85 


06 


DO 


EE 


40 


A2 


95E0- 


00 


S€ 


FE 


A2 


C4 


86 


FY 


Bl 


95ES- 


FE 


95 


FE 


AO 


40 


69 


€C 


FE 


WU- 


UV 


A3 


ly 


85 


Ft, 


A5 


LA 


83 


95F8- 


FF 


A4 


ID 


A 6 


Tr 


A 5 


in 





Source % CRA YON' 

Assernbleur Big Mac 



1 




ORG 


-> n\.t fj— / I 1 




2 


CGpJPT 




$6 




3 


TGJChE 




^7 




4 


DRAP 








3 


SAVE 




$13 




6 


SAVA 








7 


SAVX 




tic 




3 


SAvr 








9 


ACC 




S45 




10 


ADR 




$F£ 




11 


VECT 






VtStL i/lCtfl £ uyLluu 


12 


VBL 




$C019 


Video sur //& 


13 






$CCS1 


En t r &g logi^u* Q 


14 


ABiJ 




$CQ9Q 


clavier 


15 










is 




LDA 


$FBC0 


//c on //a ? 


1 1 




3EQ 


IIC 




18 


DEB 








19 




BIT 


KBD 


On uttcnd une touchc 


20 






CLAVE 


au clavier 


?1 




RTT 


CRAYON 


on aue le crayon 


22 




DDL 


BED 


^oit 3 J 'ombre? 


23 










76 




IDA 


iO 


Initial ise 


25 




STA 


COMPT 


compteur3 


26 




ST A 


TOUCHE 




77 










28 


E1E 


BIT 


VBL 


Attend fin du 


29 




BMI 


E1E 


balayage video 


30 


E2S 


BIT 


VBL 


on e-ouTS puis 


JJ 




BBL 


E2E 


il&ltul du sulvariL 


32 










33 


SOE 








34 




LDX 






35 


S00E 








36 




BIT 


KBD 


Attend urtc tauehc 


3/ 




BMI 


CLAVE 


au clavier 


3$ 




PIT 


CRAYON 


on qnfit le> r.raynn 


33 




BMI 


ECliAlRE 


s&lfc colairc 


40 




UEK 






41 






ZfWF. 




42 











43 




INC 


COMFT 


Ch con piij£t J^ft 


44 




BIT 


VBL 


jusqu'd tin 


45 








layptgp 


4 6 




BFB 


DEB 




47 


ECLAIRE 








#jj 




LDX 


#$20 


Cray on de» /joitt/p^?? 


19 


ECE 








50 




BNE 


ECE 




SI 




BIT 


CRAYON 








EMI 




Nan = /JdXeiiitK 


m 




RTS 




Qui = finl 


54 










33 


CbA V£ 


BIT 


$CQ10 


Vide clttvl&s. 






IDA 


KED 


Sauveaarde cacac- 


37 




STA 


TOUCHE 


t6rc cE m<sfc 


58 




IDA 


f$FF 


CQfiipteur a 


59 




STA 


mMPT 




60 




RTS 






:1 










£2 


TIC 






Mfze* en place 


63 




LDA 


f <IiiTEE 




£4 




STA 


VECT 


^'interruption 


65 




LDA 


INTER 




bfj 




STA 


VECT+2 




67 










€8 




LDY 


»$12 


Initialise ewirffl 


b9 




JSR 


50URIS 




70 




LDA 


10 


En mode interrupt: 


71 




LDY 


i$12 


vld6o autpri J^oi 


12 




Ji'K 






73 




LDA 


§i 


Initialise drapeau 


74 




STA 


DRAP 




75 




CLI 






76 


I- CI 








77 




BIT 


DRAP 




n 




BPL 


BCL 


attendant Interrupt 


79 




S£I 






60 




LDA 


40 


Revue t sctiirlx cn 


cl 




LDY 


t$12 


ifiactif 






J£R 


SQUR1S 




83 




Chi 










RTS 






35 










bb 


1NIEK 








87 




SF.T 






00 




LDA 


ADR 


£\i u vega irdo dd& 
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99 




RAW 


real st res 


S3 


LDA 


ADB tl 




91 


sm 


5AVE+1 




92 


IDA 


flrr 






sm 


3AYA 




94 


STX 


SAVX 






STY 


SAVY 




9$ 


LDA 






91 


LDY 


§$12 


souris inactive 


93 


JSR 








LDX 




InCerr pour nous 7 


TOO 


JSE 


SOURIS 




101 


9CC 


SUITE 


fhii =• ors la tralte 


1V2 


J5H 


RESTREG 


Won — on rcatjuro 




JMP 


$BFEB 


et on repart 


104 SUITE 


LDA 


io 


Init- faTltP. 


1Q5 


sm 


coMFr 


Its a ccnjiptciir-a 


106 


STA 


TQUCHE 




107 


STA 


DRAP 




IQ8 


wx 


N» 




im m 


LDX 


i$E3 


Attend que le 


110 Bl 


mx 






ill 


BNE 


HI 


1 'tiULHl} 


112 


DEY 




soit allvm4 


113 


BNE 


BO 




114 SO 


LUX 


0i& 


Tempor 1 i «i L 1 itti 


225 SOO 








11$ 


BIT 


KBD 




117 


BAfl 


CLAV 


svrvelile cittvivL 


113 


BIT 


CRAYntJ 


&t. crayon 


iw 


BMI 


ECLAIR 




IPO 


DEX 






121 


BME 


S00 




122 










INC 


COMPT 


On compte Q 


124 


LDA 


CCMPT 


J 2 3 maximum 


125 


cm" 






fSf& 


BCC 


SO 




121 3000 








128 


him 


§s 




13$ 


my 




Souris active pour 


130 


J3a 


souths 


now&lle Interrupt 


131 


J$R 






132 


CLI 






133 


RTI 






134 








135 ECLAIR 








IJb 


LDX 




Crayon dc rtMV-eau 


137 F.C 


DEX 




J i 'omnre ? 


136 


BNE 


BC 




139 


BIT 


UiAlON 




140 


mi 


sooo 




J^J FIN 


DEC 


DRAP 




142 


BM1 


SOOO 




143 








144 VLAV 


BIT 






14$ 


LDA 


KBD 




14C 


DTA 


TOUCIW 




14'/ 


LDA 


t$FF 


ec compr £ $ff 


14A 


%TA 


COMPT 




149 


BNE 


FIN 




150 SOUR I £ 








151 


PUA 




Ch&rr.he dan*: la 


152 


LDX 


§0 


tabic cn $C400 


153 


STX 


ADR 


1'aaresse reeiie de 


154 


LDX 


i$C& 


in rniif-fnp d&si r&f* 


155 


STX 


ADRtJ 


juuli on 


15B 


LDA 


(ADR) t Y 


y fait un wut 


15? 


STA 


ADR 






LOT 


*$4Q 




159 


PLA 






J CO 


JHP 


(ADR) 





2 61 RESTRtG 






1£2 




SAVE 


163 


3TA 


ADR 


1*4 


LDA 


SA VE+l 


1£S 


QTA 




Xffi? 


LDY 


SAVY 


167 


LDX 


SAVX 


1G9 


LDA 




163 







R&staure les 



3 2 

1-p- 



680ft 




Breche2 = +5V, 

broche 7 = entree de jeu ($C0$1) 

5ur 1p earir\ecteur interne du //e, 
1^ brochif 2 t?^t Id 1 , 
]a broch* ? »st la 8, 
la broch* 7 est la 2, 



TIL 91 



yW 1 



Programme 'DEMO* 

5 PRINT CHR$ (4)"BL0ADCRAYON,A38127 
$ HIMEMi J7000: REM ProDOS page ont±6ro 
10 DATA INITIALISATION, CREATION, MODIFICA 
TIQN, ANNULATIQN, CONSULTATION, IMPRESSIO 
NrFTN OK T.J DEMONSTRATION 
FOR 1 = 1 TO 7; READ NEKT 

R£M 

HUME : FK1NT "MKUV PRINCIPAL 
FOR 2-1 TO 7,* VTA3 2 * T + A: PRINT 

SPC{ J);: inverse ? fKiNi I' ";; 

NORMAL ; PRINT » "M$ (I) : 

M 

CALL 38 127 

140 IF PEEK f6} =255 THEN CHQIK = PEEK 
(7) - 49 

IF CH01X < 1 UK UiUIX > 7 THEN 120 
ON CROIX COTO 200, 20Q f 2Q0 r 200, 200,200 
r 300 

HOME : PRINT * OPTION "M$ (CHOIX) " 
VTA8 20: INVERSE : PRINT " RETOUR N 
OFNAL 

CALL J&127-. GOTO 10(1 

VTAB 20: PRINT "OK FOUR FINIR ? I 
NVFRSE : PRINT " GUI "r VTAB 22 r POKE 
3b, lb: PRINT " NUN NORMAL 

CALL 331 27: ON PEEK (6} - 19 OP PEE 
K (?) = ASC ("0") GOTO 320 

315 IF PEEK (C) < > 21 AND PEEK (7} < 
> ASC t"N") THEN 310 

316 VTAB 20. CALL GOTO 120 
1?n HDMF. : KM) 



11 
90 
1UV 
110 



7 75 
120 



IbO 
ISO 

2C0 



210 
300 



310 
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Micro - informations 



Jean-Michel Gourevitch 



B o ulever semen t dans le paysage 

de la micro. Alors que ies 

resultats d'IBM s'effrltcnt, voici 

que ceux d 1 Apple connalssent un 

ciel de plus en plus bleu. II se 

sr rait niPTnp vpnrfn en aofif plus rip 

Macintosh que d'IBM PC-AT, U 

Macintosh Plus a incontesta- 

blement dup£ Apple. 

Taadis que se profilent les livraisons de 
1' Apple IICS, ct que les Macintosh 
ouvens connaissem semble-Hl queiques 
retards, (on ne parle plus de. sortie avant 
le mo is dc mars), les Macintosh actual a 
sc veodem panicuUciemeot bien. Aux 
Etats-l Tnis r tl faut dire que la haisse de 
prix (buissc dc 200 dollars sur 1c Sl2Ko 
ct tic 400 dollars sur le Plus) u'est 
suremem pas £tran£ere a ces succcs. En 
Prance, ou lee baisses de prix Eont 
rarciucAi i I'ordre du jom die* Apple. 

on compte deja 55UUQ Macintosh 
vendus, doot 30% dans les "grands 
complex" qui bouUaicm ustcusiblcuiciiL 
le Macintosh depuis ses debuts. A ces 

bons resultats, probable meat trois 
raisons : d'abord rani vie du Macintosh 

Plus avec son interface SCSI, qui fait 
plus "eerieivr" que le Macintosh 512Ko 
3fiii3 aortic pour disquc dur ; eusuito, 1c 

rapprochement ae runlvers MS-Dos, 
qu'il R'flgisse de l 1 tnte!gratinn riii 
Macintosh dans des rdscciu* ou sc 
rjouveni dtfja des PC (par exemplc avec 
le r£se_an TOPS) on dr. l'4change de 
flchiers cntrc lea Macintosh ct lea PC. 
Ec, cnfio, le "Doom* Ce rediQon 
persnnnelle. Ce que les Americains 
appellem le "desktop publishing" et 
qu'ou a baptise the* uuus du nura 
bar bare d critique ou de PAO 
(publication assists par ordinateur). Un 
grand nombre d'enucprises sc sunt 
avisSes^ qu'elles pouvaient realiaer 
elles-memeE, et dans leurs iocaux, des 
documents qu'ou Ucvait aupajavaut 
confier a un impnmcuL il vient ainsi de 
s'ouvrir un tout nouveau marche" qu'on 
□'avail pas imagine auparavaut, ct qui 
s'avere etre "juteux". IBM. qui sy 

int£res£e de pr£s, a done annonce* une 
version splciatc dc son micro 
scieoufique : 1c KJ-KT, specialise dans 
les t Aches d'erlition. En attendant, Apple 
dispose avec le Macintosh d'unc 
conronabie avarice surce mardie-ia. 



PAO a gogo 

Rien d'etonnant si les programmes 
d^dition e'lectroniquc sc multiplied. 

Aux "Page Maker" et autres 
"MacPnbHsheV 1 (dom il vie.nr He snnir 
une nouvcllc version}, il faut dcaormais 
ajouter Graphic Works de Mindscape, 
un veritable programme in t re 
comprenajit un traitement de texte, un 
logiuiel dc desshi:> suphiiiti^uc avec 
aerog raphe a pressions re g lab les, et la 
possibility de m^Iaoger testes et 
grapluqucs. PrU , SO dollar Ragtime 
d'OranEe Micro, autre intcgre d 'edition 

nanti d'un traitement de texte avec 
colonics multiples, possibility dc 

meianger des styles et Tallies, de creer 

des cadres de styles different On pent 
auasi 'cxploacr* un document pour 

acceder simultauemeni a neur sections 

de ee document. Rn prime ( nm dispone 
d'ud tablcur. Enllrit PS Compose de PS 
Publishing a usage proressionoel pcrinet 
de choisir des niveaux de gris et de 
transcrire on texte en langage de 
LULupusiiiun. Il foaciioauc avec des 
impritnanies utilisaat le langage 
Postcript comrae la LaserWriter, (Prix 
1000 dullais) utais ausai a vet, des 
systemes de composition de 

Compugraphic ou d'AUied Linotype (?e 
prix est alors dc 2000 dollars). 

F.st-ce un traitement de texte 
ultra-sophistiqud ou bica un svstcmc dc 

mlse en pa^e ? Les nombreuses 
foncHons de Writer Plus d'ACt 
permettent de 1'utiliser ifidifffiremment 
pour ccs usages. A remarquer parmt les 
avantages fc la possibilir^ de stneker par 
themes des porographes sou vent utilises 
a de les Esppelcr, la facultc de stocker 
par themes des images, la perm u fa Hon 
automatique de deux c-arac tires (pratique 
pyui turriger unc fauic dc frappc), la 
cesure auiomaiique qui dt vise un mot 
sur una syllabe et pose un tiret pour lout 
mot arrivuut cc fiu de Ugne, des 
statistiQues fournissant le nnmhre de 
signes, de mots, de paragraphed et 
d'iuiagcs ti'uii twic uu d'unc panic dc 
texte, le cadraee d un texte. rcquilibraee 

des colonne^, La gestion des niveau?; 
d'un teAic avec geu6aiioa dULomatiquc 
dun sommaire, le calcul entre plusieurs 

cellules dans un texte, la nu me" rotation 
des iiuici. etc. C'cm vi ai qu'il cat 
difficile de construire un programme 

pour le Macintosh, Et, apparemment, 
plus 1c programme est mvcotif, plus le 
^debu£infi h est difficile. Au debut 



novembre, Writer Plus ^tait ainsi encore 
affligl de plusieurs *bugE' t qui auront 
cei taiaciueni dispaiu dans la version qui 
seramiseenvente. 

En anendanu (a concurrence s'annonce 
d^ja difficile Avec notarnment Writ^ 
Now, d6vclopp6 par Solastcr Inc 
socieie acquisc par Sieve Jobs, le 
ondaieur d'Apple) et distribuf outre 
At! antique par TVMaker. Write Now 
cuujpoi lc lui aussi la possobiliLf d'e'erue 
en colonnes (jusqu'a 4 par page) de 
controler Tecart intercolonnes en points. 
Ou pirui au^>bi y uidluii^cL Lcalcs ct 

graphiques. changer les dimensions 

d'une image Eans qu'elle se distorde, 
controlcr I'intcrlignagc de fa^On precise* 

Le traitement oe texte est evoiue:, avec 
notammem itne possibility d'ajonter des 
notes avec numeration automatique. Cc 

traitemen de texte rres rapide utilise bien 
e'videmment les fichiers de. Macwnte on 
de Word et comprend dans sa version 
amerlcaiiie un correctcur ordiogra- 
phique. II sera vendu 175 dollars. 



Mini-Macintosh, 
maxi-prix 

II ne manque plus qu'un Macimash 
portable pour completer la gamme. 
Certains construct curs cssaicnt dc 
renouveier le coup fair par Compaq a 
[RM en pr^sentanr le premier PC 
portable. Cette fois, e'est plus dur car, 
compte teiiu au fait qu'Appic resie 
Tunique source de production des ROM 
at du sy steme du Macintosh, il faut 
obligatoirement passer sous scs 
fourches caudines, ou se borner a 
acheter dec Macintosh, puis a les 
iccajosser, cc qui fait allcgicuicnt 
grimper la facture. 11 y a quand meme 
des volontaires. 

Parmi eux. Colby, qui avait ddja 
present* de nombreux Macintosh 
rc^arrossds, qei c spire prrjsenler un 
portable com pre riant outre les 6l£ments 
d'un Macintosh Plus avec lecteur de 
800K, un tcida plat au plasma de 12 
pouces. un disque dur mt£grc de 20 
Megas et la possibility de foncdoaner 
sui batteries, PriA de 5000 h 7000 
dollars. A remarquer encore le Dynamac 
de Dynamac Computers, un portable 
style Papioaii lui aussi avec disquc dur 
incorpori et ccran plat 61ectToiumi- 
nescent. Prix de 4500 a 5000 dollars, 
Eufin, le MX Plus d'Iutclitec t h ccran 

electroluminescent de la tMe de l ecran 



70 



Pom's n" 27 



d!u Macintosh avec modem ei disguc 
dm- incorpnr£ F possibility de function- 
nement sur 12 volts. Prix : 5 a 7000 
dollars, pour un ordinaicur ins Lille" datis 
un attache! case tout aluminium. Devant 
tous ces projets, une seule question : 
Apple sous traiicia-E.-il sun Macintosh 
portable pour le sortir plus vite 7 Ou 
bi&n tout; ess fourni&sears devront-ils 
icugaiuci leuis piujets poui laissei a la 
flrmc & la pomme 1c monopole jusQu'a 

present inentam£ de la construction du 
Macintosh ? Repuiisc probablcnicnt 
raunee procname. 

Logiciels : 
encore du genie 

r^rsqnVm £crira un jour Itiisinire de la 
micro-informatique, il faudra b. coup sur 
crgdiier le Madmosh d'un pas important 
r&Oise* dans I'inienigence des pro- 
grammes, Quclques prduves ? D'abord 
More, la derniere version au trairemeiiE 
d'ideea Think Tank.. Ce. logiciel 
permettant de gene>er automatiquernent 
un plan, un organ! giaujiiiCj ou des 
encadrfa pour presentation audiovisuelle 
set sans concurrence pour preparer un 
aiLielc, coutevoii un livrc, ou penser a 

une conference. Ses multiples perfec- 
tionnementB (possibility de regrouper, 
de promouvoir ou dc ritrogadcr lea 
parties d un texte, tie aatafie ou 
d Tiered atage, puis de presentation) onf 
bicn mdrito* dc la cause dc la 

micro-mfonnatique. Cest simplernem 
ge*nial. 

Autre logiciel illuming : VIP, distribue' 
pm P-IngenieFie. II s'agit siinplcmcnt 
d'un langaee de program maiion gra- 

phique* Plus besoins d'£crire des 
"GOTO" des tristouncts "IF THEN 
hLSrT : on clique simplemem sur aes 
icones. ou on utilise des menus 
ddroulants. On pcul ainsi appeler 

directemem les procedures de la 
"Toolbor" : ces mnrceaux de 
programmes inscrit3 dans tea ROMs du 
Macintosh penneuam, par example, 
d'ouvrir une fenerre a r^cran. Une fois 
composd, le programme est repre'eente* 
par un schema arrithe" a rduau. Lc 
programme peut etre visualise, modih£ s 
ex£cut£ en mode normal ou en pas a 
pas. Uue vcisioa "pro" permettant dc 
gcrer des variables locales ou le "list 
manager" sera bientot disponible,. Tout 
Ltiiiiinc des bibliothequcs ddlivram du 
code source en "cr ou en Pascal* 

Est-ec un systemc de gestion dc bases 
de do no to 7 Uui, dune certaine fac.cn. 
Est-ce un logiciel de traitement d'ide^s ? 
Oui aussi. Guide d*0 WL International 
se presents comme "le premier syst£me 
d'hypertexte" ce qui ne. ve.vit sfrictemen? 
ricn dire. Tlus simplcmcnt, ce logiciel 
permet detablir des textes ou des 
graphiques et de cr£er entre enx des 
systcmcs dc references croise*es. En 
cliquam sur une partle d un dessiu, ou 
voir ainsi s*onvrir a Tecran le texte ou la 



panic dc dcisin correspond ante, 

GageoGs nu'oa entenara reparier de ce 

logiciel vendu 100 dollars. 

Et puisqu'Unix est le systems h. la 
mode, void deja aux fiiais-Ums Maailx 
dLstribu6 par Eurosoft International Qui 
transforms un Macintosh en station de 
iravaJl UiuX en le reliant a un uidinaLcuj 
"h6te T fonctionnant sous ce systerae* 
Avantage : Unix fonctionne alors avec 
Lous Its avauta^cii giapliiqucs du 

Macintosh (fcDetres. icones. possibility 
de recevoir ua flchier en transfe'rant 
I'kduc dc la fenctre Unix sur la fenetrc 
du Macintosh etcj. A remarquer Que ce 
logiciel, qui pourrait constituer une ftape 
impgaante dans la suaufgic togic-icllc 
d'Apple, travaille avec les versions Unix 
System V et d.7 BSD, ce. qui hii pe.rrne.t 
d'etre rclid a des stations dc travail Sun* 
5un 2 et Sun 3 T des Vax de Dec, a des 
PC-AT et compatihleji Prix ■ de, fiflO 
dollars (version pour 2 utilisatems) it 
10000 dollars (nombre d urjllsaieurs 
illimit£) 

Logiciels : 

des perfectionnements 

A remarquer que la derniere version du 
programme de dessin Foil Paint, 1ft 
aueccsscur dc MacPaint, permet 
d'impnmer en couleurs sur limprlmaiu? 

Image writer II. A nofe.r aussi un 
nouvcau langage de programmatioa ea 

C : le Ll&tuspeed C de TUink 
Teehnologips Ce. Ian gage parti culie- 
rcmcnt rnpide comprend un e'diteur de 
texie mulil-fen&[reii, unyoinpilaieur, un 
eVHtftK de. liens et des utililaires de 
programmation. Prix : 175 dollars. 

Pour les architect* s. Space Frfit ^crit 
par Tauteur de Macintosh Space et 
distntiue par Abvem, est un logidcl 
francais de CAO avec objets volumiques 

combinablee, bibliothequefi; de 
composants en uois dimensions, 
perspectives faces cachees, caiques 
superpocables, etc. Pnx : 7000 Francs. 
Toujours distribu^ pa* Abvcnt, Slide 
123 permet la realisation sur le 
Macintosh de dosfiiers de perm is de. 
gunsUuiie de maisops iodividucllcs, 
avec notam merit retablisserfleni des 

calcule de surfaces. J-a sortie impnmante 
cat icali&£c a I'dcbclle requisc par 
Tad ministration : lem par metre pour les 
plans et facades et le plan Masse. Prix : 
7000 francs. 

Des Macintosh 
dans les labos 

Avec Tcnuec possible du Macintosh 
dans les usines (accrue id dans le 

dernier num6ro de Pom's), son irruption 
dans les lalxuaioucs u'a pas fiui de faiie 
du bruit. Dans un article consacri aux 
logiciele £p^ciaux T la revue MacWorld 
dc scpiembrc rcccnsc nolam merit des 

programmes perrnettani de reconsUutre a 



Teheran les molecules d'ADN 
reconTDinani : c est DNA Inspectur Ue 
Tevtcn Ph^mDraw de Stewart 
Rubinstein cat un outil de dessin pour 
cmmlstes, Labvlew de Naiiuna] 
Insrriirrienfs rorpftraiinn permet de reller 

le Macintosh a des instruments: et de les 
tontiolei a I'^iau du Macintosh : 
rintertace se realise par un bus ihhh 
488. Macintosh ADIOS de GW 
iusti umeiits pennct dc faire fonctionncr 
le Macintosii en analvseur spectofira- 
phique, voltm&rreR h htiit canaux, nu 
d'fmulcr un oscilloscope a basse 
frequence. A remarquer toujours dans je 

meme domaine : npsignscnpe de Rrain 
Power, un instrument de simulation de 
circuits eiectronJques, & udllser avant 
c oris tru ire matdrseliement un circuit, 
D'autre parti StcEJa, un outil pour 
am£liurer les pioLcsiua dc pruductivilc 
permet anx chercheurs de conslruire des 
models logiques pour re'aliser des 
simulations- Qu'il Suisse d'optiuiisci 
des quotas de lignes de production ou 
d'fitudier les effets e'cologiques de la 
poUuiion par les gaz d'^chappements 
des automobiles. Far ses possibiiit^s 
graphiques et de caleuls, le Macintosh 
devrait. bientot p^nirrcr on force dans les 
laboratotres. Une irruption facilitee par 
l'entree dans la vie active de nombneux 
tftudianis qui l'utiliscni depuis deja 
piusieurs annees. 

Hard 

Le g^ole souffle aussi sur le materiel. 
Ainsi, voici (bfilas seulement pour 
rinstant aux fitats-Unie, et en 110 volts, 
mais on peul rcvei) t uu systemc 
permenant de control er avec rordinateur 
tous les intemipteurs et touE lea 
systfemes filettriques d'uuc urai&ou. De 
quoi, par exemple, faire couler 

automatiquernent un bain chaud a heure 
Hac, i^chauffcr une piece juste avant le 

retour du bureau* ailumer ou eteindre 

automatiquernent I'lclairage, Oui ? mais 
jc vous vols venir, a quoi bon, 
allez-vous me dire moDiiiser un 

micro-ordinateur du pr(y <f'un 
Macintosh pour servir dc 
profirammateur eiectronique ? En bien la 
nouveaute* dn system e Y Ifl 
Powerhouse dc X I0 t e'est que It 
Macintosn sen slmplemenL a 
programmer un petit boitier de 
commandc^ On commence par reoliser 
un plan de sa maison avec les circuits 
e'lectnqnes sur un logiciel de style 
MacPaint, On relie le boitier au 
Macintosh, on programme les hemes de 
mise. en action en cliqnaitt sur les 
intemipteursi sur le plan du Macintosh, 
ei en Tepondant aux questions Oans les 
fenetres qui s'ouvrenL On peut ensuite 
enl^ver le boitier et le connecter au 
systeme dlectrique. A 1 'heure dite, les 
interrupteurs ^lectriques seront 
commandos, Le module de commande 
avei; eable de liaison au Maciuiosh et 

logiciel coute 80 dollars, les modules 
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iifccssaiics pour commandc* chaquc 
appareil plectnque 2\) dollars chacun. 

Pour ucua qui nc dispuscnt que d'uue 
Imagewriter L voici un introducieur 
feu i lie a feuille permettant d'eVUer le 
papier perfureV4l cuute moins de 2000 
Francs et est vendu par Eudimed 

Disques durs SCSI 

A ooter d'abord que le premier 
Hyperdrive extern* (le FX 30} est 
diipuiu'blc ulicz P-L i filter it puur 15300 
F avec ses logiciels de "spoor' 
impnmanre. de protection des fictuers et 
dc bauvegajde iutrcuicuuile sur 
disqueoe. Chez International Computer, 
on trouve pour quslques 52000 Francs 
TIC 20, lui aussi d'unc capacitc dc 20 

Megas. Les lecteurs oe Pom s se 
eouviendront peut-etre de boe provisions 
3ur la baissc dc prix des disqucs durs. 
Voici s pour eui, ic premier aisque dur 
eiterne SCSI de 20 Megas disponible 
pour moins dc 600 dollars. Ccat cciui 
vendu par Jasmine Computer. comblen 
de temps faudra t-il pour arriver a ce 
prix en Prance ? Mo;r.s d'un on ? 

L'AppIe // 
en vedette 

L'Apple // est en vedette americaine. 
Avcc, d'abord ic [ICS qui est enfin sort! 
avec une moissoo ae programmes 
nouveaux pour la gam me Apple H. Son 
prix ct ics possibility devraicat lc 
^server dans un premier temps aux 
marches de L Education. Des trajtements 
de tcxtc ? Voici Multiscrlbc dc 
Styleware, tres ressernblant a Macwrite 
avec menus et polices de. caraeteres 
modifiablts, utilisation dc )a souris, ct 
uq prix de 60 dollars- Volcl encore 
Paperclip de Ratteries InH tided, avec 
toutcs lea fonctions dc rcchcrches, ks 
en-tetes et bas de pages automailques, 
une vision sur L'frran du dcicument rel 
qu'il sera imprimd. Voici ua nouvcau 
tableur style Macintosh utilisant la sourls 
: VIP professional de TSft Markering 
avcc 8102 ranga sur 256 colonnes, une 
mgmoire unusable dc 4 Me"gas t un 
grapheur et nn langage de macros 
commc Lotus 12 3. Prix : 250 dollars. 
Voici encore ia dcrnicre version d J un 
simulateur de vol - Jet. realise* par 
Sublvgk I'&utcur du cdebrissime Flight 
Simulator qui vous place au commanae 
d'uti avion a rt'ar.teur, aver vue de 
1'cxtcVicur, ddcolloge d un ports avion,, 
etc, Et sl on sc plame ? Alors, voici 
Wilderness rf'F.leetric Transit. *Que 
fairc apres que vous vous soycz crashe* 
avec lc Flight simulator ?* demande la 
pnhlicife. ifeliser Wilderness : un jeu de 
survie dans la jungle, 

Ameliorcr Ic// 

Faut-il abandonncr son // ? II sera 



probable men: possible dc lc mcttrc au 
niveau du GS. Ua Kit sera disponible 
Van prornain, mats pmir un prix 
d'environ 1000 dollars. Cest que ce kit 
comprend une nouvelle cane logique, 
25GICn de RAM Ij? clavier er la souns 
sont vendue cn supplement (pour ne pus 

nuire a ceux qui avalem deja acfteie" une 
snuris pour 3eur//e). 

£u ctucuUiiiUt voici bi^ajiciucm que 
sonent de oouveaux accessoires pour 

amgliorer le ft dans Les domaines oil le 
GS prime. Cc &oai aoiauimcat la vane 

Yess de Yam Educational permettant de 
transformer le // en piano £lectfonique T 
ct k Flia.Mjj . ^'Applied Engineering, 
une carte syntiietiseur avec 4 voies 
EteVebpboniques, 13 canaux sLmultan^s, 
4 g.£ ndratcur s dc bruit blanc, etc. Prix : 

179 dollars. 

Dcjo des nouveautes 
pour lc lies 

A peine est-il sorti que voici deja des 
logiciels ct da materiel pour lc GS. C6t£ 
Logiciels, remarquons les irois pro- 
giammrs de Version Soft : un traitement 
dc tcxtc : GS Write, trcs scmblablc h 
Macwrite, mats avec la possibility 
d'ouwir jusqu'a 16 documents, un 
programme dc dessin CS Paint 

(MacPaint avec de la couieur !) et un 

pTngramme de rfimmiinicafinn ! fiS 
Com. Ces prod u its oat 4t6 achates par la 
firmc Actlvl&Lun qui cumpie cn ecoulcr 
75000 aux EtaLs-ifnis. On recense 
encore des programmes de publication 
assistee par ordinateur : Opus de Quark. 
Pager de Megahaus. et Front Page de 
Brodcrbund. TML a un compilateur 
Pasual, ElevLruiiica Art a adapig Deluxe 
Paint, son pro£ramme de dessin deja 
vendu pour ['Amiga. Broderbund va 
aui£lioiei poui le OS lea piugiaiuiuc^ 

Print Sriopet^antavisiori. Un parle 
meme d'un Logiciel int^grateur facon 
swiuiiei baptist Cat ruoad. 

Sui lc fioai des acccssoircs, oa 
remaraue un disque dm de 2U Megas ei 

une carte de 1 mega-octet de disque 
vinucl d'AST. Une carte d'cAtcuaion 
mernoire pouvant conteiur 4 Megas, ie 
RamPaki GS d'Orange Micro et une 
tanc interface pamlltLe ; Lc PrvGrappier. 
Orange Micro propose meme un des ces 
accessoires avec un ventilateur et prises 
auppl^uicataircs qui pcrmcttcat dc 
rendre bruyants des ordtnateurs: 
gen^ralemeat silencieux. Applied 
Engineering a deja concocE^ dc ua canes 

d'extensjon : la GS Rain tl3 Mega 

octets sur La carte) et la CS Ram Plus 
(jusqu'i G Mdgas}, 

L" Apple U GS est ouvert Grand ouverL 
On va voir difcrlcr les accessoires. Les 
imaginations et Les fers a souder nont 
pas fini de chauffer dans la Silicon 
Valley. 



Mlndscape Inc - P.O. Boa 1 167 
Nonhbmolc-IL 60065 

Orange Micro - 1400 n LaKe view Ave 
Anaheim -CA 

PS PublLshmE - MJ Ureen San 
Francisco -CA 94133 

AC1 - fi avenue Franklin Roosevelt 
7S00B Paris - T£L : >I3 59 80 55 

T/Maker ■ 1973 Landings Drive 
Mountain - view LA 

P*Ing£nl£rle ■ 226, bd Bxsp-dil 
75014Paris-Tel .:43 21 93 36 

OWL International - 14128 NE 21a 
Srmef RHlevue- WA 9RfX17 

Tninlt Tecrinologles ■ 420 Bedford 5t 
Lexington - MA 02173 

Abvent ■ 53, avenue de ureteuiJ 
75007 Paris - Til. : 47 34 43 

Texteo - 27 Gilsorj Rd West Lebanon 
NH 037S4 

Stewart Rubinstein - 77 Sacramento 5t 
n* 1 1 - Somerville MA 02 143 

National Instrument * 12109 
Technology Bd Austin TX 78727 
G W Tnsrnnnimt* - PO Rot 547 
Cambridge - MA 02 142 
Brainpower - 24009 Ventura Bd 
Calabasas-CA 91302 
High Performances Systems 
1 3 DaraiuuLu College Hwy Lyme - NH 
03768 

X 10- 185 A Le Grand Ave NurUivalc, 
NJ 07647 

Eudimed - 98, ols bd de la Reine 
7SOO0 Versailles -TO : 3902 1530 

Jasmine Compute- Systems 

PO Box 1119 Mountain View- CA 

94£M2 

Styteware - 6405 Hillcror\ Suite 701 
Houston TX 77081 
Batteries Included - 30 Mural St 
Richmond riill - Ontario Canada L4B 

lis 

ISD Marketing - 20 Steelbasc Road Unit 
12 Markham Ontario Canada - L3R 1 R?- 

tlectric 1 raosft - 301 Mann Street suite 
116 - Thousand Oaks, CA 91360 

Yarn Fducational Software 

202 S EI Comino Real San Mateo - CA 

94403 

Applied Engineering - PO Box 798 
fjarroliton- TX75U06 
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CulUbgraicui Uc Puju's vcad i Vital 
neuf, un lecieur 140Ko tit (1700.00 F), 
un moikitcur lis {UO0 f 00 F), yn sU?»d He 

(250m F). une houase ffc (373.W 

un joystick //e its (575,00 F) et un 

manuei de reference nt (250,00 F)- 
£crire I la redaction qui !r*ivrm(*rrra 
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AppleWurks au U avail 

par Alain Gargadannec et 

Jean-Michel Jego 
Editions duPSI- 160FR 

CcL uuviage est compose dc trois 
parties : Decouverte de la base de 
dunnees, du LraiLerncni de tCAte ct 
du tableur - Plus loin avec la base 
de demises et le tableur - 
Integration avec AppleWorks. 
Rien ecrit et agreablement 
prcscnte, il nous emmcne ft la 
maltrise. du logiciel, grace a des 
applications destlnccs aux FME, 
artisang et com me reacts (paye., 
facniration). 

II est utile, sunout pour les 
non-informaticiens et les li vilains" 
pnssertant une version piratee. Le 
principal intcret dc cc livre est dc 
nous en trainer au-delA rift la 
simple utilisaliuu du programme 
(ce qui efit facile, AppleWorks 
ivdut un logicicl ulUa-fiable, 
conversationnel et bien 

documente pan une fonctlon 

d'aidc), cn nous montrant 
jusquYm vont les possibility de 
cc logicicl intcgrc, e'est-a-dire les 
articulations en t r ft s e s tr o i s 
applications, 

Ce livre ne s'adresse pas aux 
possesseurs de la version 
anglaise* don ties commandes ne 

3ont pas les memes* 



Dictionnaire de 
micro-informatiquc 

par trie Duceau et Christophe 
Doe - Cedic-Nathan - 191 pa^cs. 



Un livre clair, compnrtant rie 
nombreuses illustrations ct bicn 
presente. Les informations ne 
sent pas toujours exactes : aiusi, 
le langage de programmation 
Ada( et non AJXA.} a 6x6 ct66 
par Jean Ichbiah (ct non Ichbiach) 
et, A la date de parution de 
l'uuviage, il existc deja dc 
nombreux c.ompilatetin:, enntrai- 
lemenL a l'affii in a dun de Tautcur. 
Un double lexique francaisy 
anglais et anglais/firangais termine 

Vouvragc* 



Mac Astuces, Macintosh 
et Macintosh Plus, 
deuxicmc edition 

par Herve Thirie?. 
Editions du P3I- 160 IT, 

Cette seconde edition de 
MacAstuces comporte une mise a 
jour, l'adjonction de nouyelles 
astuces d'utilisation du Macintosh 
et, surtout. une vingtaine de 
pages cntieremcnt nouvcllcs ct 
consacreee au Macintosh PtoSL \st 
disquette d'auJuiiipaEiiciiierit peut 
Stre commandee aux Editions 
MEV. 



Guide pratique rTTCvcel 

par Hcrvc Thiricx - Ccdic-Nathan 
170 pages grand format. 

Un ouvrage de base pour 
l'apprentissage d'Excel, a Taide 
dc plusieurs cas de gestion 
realistes Le sent livre rut Excel 
qui, a notrc connaissancc, 



inriiqtie quels sont les bogues du 
logicicl et comment les 
contourner. Line prise en main 
progressive ct pedagogique, 
couvrant toute l'utilisation de 
base d'Excel, y cum pi is 1c calcul 
de tables et la programmation de 
macros. De nombreuses astuces 
d'utilisation sont mises en relief 
et ressortent facilement grace a 
une presentation cn grisc, Une 
disquette d'accompagnement 
facultative cumpicnd tuus les 
tableaux de Touvrage, ainsi 
qu'une nouvelle police de 
caract&res de taille 6, perm ett ant 
de voir a fecran un grand nombre 
dc lignes ct colonncs h. la fois. 



Programming pearls 

par Jon Benriey 
Addkon-Wesley - F.n anglais. 



Cest la reprise sous la forme 
d'un livre d'unc scric d 'articles 
publies dans Communications of 
ihtn ACM \ uuc seiicusc revue 
profeseionnelle pour informati- 
cieris. Une mine d'or pour les 
programmers, qui y trouveront 
de multiples astuces de 
programmation, des routines de 
tri et recherche, rles irlees sur la 
facuu de suucluici efficaccmcnt 
les donnees, des conseils sur la 
mise au point des prolamines. 
Indispensable pour les 
programmeurs... 



Ludologic 

©I© 



Taquin, Noir & Mac, hexagons magique, trois 
jeux de reflejtiQQ de difficult croissanie. Ces 

jeux qui nScessitent des neurones auss; crimes 

qu'enirain^s, ne aevraiem pas deccvoir les 

amateurs de puzzles et autres ca&ee tltes. 



8QfiQ F franco, Don de commandc page 74 
(La disquette comprend les sources) 
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Bon de commande 



Disquettes 



HAIFA S0OTCT (itf. Pom's n a 5) & 60,00 F 

mSK-MANACEH (rf PnraWII) h 455,00 F 

BASICIUM , , (d*. Po m's n' 13) h 150,00 F 

FI.P.E, JLII (tf. Fbirif n' M) A 200.00 F 

Echange E.P.E. 3,0 . , (cf. Pom's n" 23) k 80,00 F 

PASCAL (rf. Pom's a* 15) & 80,00 F 

MAX (Monlieur eteodu) „ (cf. Pom's n" 15) & 150,00 F 

nOMTNOS ... (rf Pbm'ca" 19) * 80,00 F 

COGO (cf. Pom's o* 21) 150,00 F 

LimriLomr (rf PnmW?^) a R0.no f 

ORDICO (tf. Pum'i 26) & 200,00 F 



Rccueils 



N'l, recueli des revues 1 H - - - * H0 t 00 F 

D 1 1 q 1 1 f T t p fTflrrftTtvp.agnpmpnt 1 & 4 »*. & 200.00 F 

N*2, retneU de* revue* 5 i 8 & 140,00 F 

nkquptfps fl'flrrnmpagnpmprif 5 ft S „ I 200.00 F 

N c 3, rtuueJJ den revue* * k 12 * - & 140,00 F 

Duquettes cTaccompagnement 9 k 12 & 200.00 F 



Revues, disquettes 

Revues A 7 8 1 35,00 F 

Revues 10 11 13 13 U 15 16 17 IS 19 20 51 22 23 54 2526 i 40.00 F 

Disquettes Apple 11, tfe, lit 

IfZ 3 4 5 6 7 8 9 10 11 12 13 h 60 t 00 F 

14 15 16 17 18 19 20 21 22 23 24 25 26 27 

DUqiiettpt Msrlntnsh 

14/15/16 giuupto 1 150,00 F 

17 18 10 20 21 22 23 24 25 26 27 & 80,00 F 

Mac *A f & 80,00 F . 

MacAstneee i 200,00 F 

"Raccouiui" & 200,00 F 

Abomiemeuts Four 6 numeros a panir du n l .. 

Abunntment k \m revue seufc a 225,00 F 

Ahonn^mpnt r*vnr ■*■ dUqtipffpt Apple IT, He & 525,00 F 

Abuunemtot rvvuv + dbcjucilva Matiutusli i 625,00 F ,.,»..♦. 



Total TTC = 

Supplement avion hors CEE ; 15»0OF par pumta) et/ou disquetic : 

fvfnntant rlir rpglempnt : 



Envoyei ce ton et votre rtglement d t EDITIONS Mh V . 64 me des Channels 7800D VEKS AB LBS 
Nom : __ 
Adrcsac : 
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Pom's n* 27 



PROGRAMMER 

Clefs pour Macintosch 150 FF - 
Basic Microsoft 2,0 sur Macintosh 
250 FF - Basic + 80 routines sur 
Apple K 95 FF - Les ressources rte I'ApplA 
Eic 95 FF - Assembleur de r Apple 120 FF 
Introduction a ProDOS aur Apple 85 FF 
Systems ProDOS sur Apple 
190 FF - Programmatlan 
systems de I'AppIc II 190 FF - 
Apple. modems et sfirvpurs 
130 FF - Clefs pour r Apple Ife 
et He 65CG2 145 FF. 




Mac Astuces 150 FF - Mumpian 
pour Macintosh 110 FF - Le livre de 
Jazz 220 FF - SO modotes Mul+iplan 
pour gerer sur Apple et IBM/PC 130 FF - 
Appleworks au travail 160 FF — 
Photographi© sur Apple et Amstrad 450 FF. 



DES LIVRES POUR 

CREEP 



JOUER 

102 programmes pour 
Apple 120 rr - Super jeux 
Apple 120 FF 



ProoramrnaTion des jeux cf Arcade sur 
Appie II 140 rr - Appfe, loglquo ot 
system©? experts 120 FF - Creation et 
animation graphlque sur Apple 335 FF. 
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